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THIS MATERIAL WAS PRODUCED FOR EDUCATION PURPOSES 
ONLY, THE UTMOST CARE HAS BEEN TAKEN TO ENSURE THE 
ACCURACY OF THIS PUBLICATION. HOWEVER, NO RESPON- 
SIBILITY IS ASSUMED FOR ANY INACCURACIES THAT MAY 
OCCUR. FURTHERMORE, IT SHOULD BE UNDERSTOOD THAT 
CHANGES MAY OCCUR THAT MAY CAUSE ALL OR PART OF 
THIS PUBLICATION TO BECOME OBSOLETE. 
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- PROCESS INPUT FROM TRANSACTION 


qS'S'A 


Pins 
A . 
{ 2 
\ a 
1 naif 


CICSPG: PROC OPTIONS (MAIN,REENTRANT); 
%INCLUDE (DFHCSADS); 


-%INCLUDE (DFHTCADS); 


2 TWADEF CHAR (20); 
%INCLUDE (DFHTCTTE); 
%INCLUDE (DFHTIOA); 

2 TRNCD CHAR (4); 

2 MSSG CHAR (20); 


PROCESS INPUT FROM TRANSACTION 


i 4 


LOA 


\ 


DFHTC TYPE = WRITE. 3° 
INSURE THAT PRIOR TO ISSUING MACRO. 


‘| ADDRESS OF TIOA TO BE WRITTEN IS IN TCTTEDA 


ance 


(LENGTH OF THE DATA TO BE WRITTEN IS IN TIOATDL 


TIOA DATA AREA ‘IS LARGE ENOUGH TO CONTAIN DATA 


SGA 


TCTTEAR 
TIOABAR 


TWADEF 


TRNCD 
MSSG 


0 
DFHCSADS 
DFHTCADS 


~ CL20— 
~DFHTCTTE 


DFHTIOA 
CL4 | 
CL20 


2,0 

* 2 
TCTTEAR,TCAFCAAA 
TIOABAR, TCTTEDA 


TIOADBA(20) ,=CL20’YOUR20CHAR/MSG’ | 
TIOATDL,=H’20’ 
TYPE=(WRITE,WAIT) 


“OPTIONAL 


ees’ A 


IDENTIFICATION DIVISION. 

ENVIRONMENT DIVISION. 

DATA DIVISION. 

LINKAGE SECTION. 7 

01 DFHBLLDS COPY DFHBLLDS. 
02 TCTTEAR PIC S9(8) COMP. 
02 TIOABAR PIC S9(8) COMP. 

01 DFHCSADS COPY DFHCSADS. 

01 DFHTCADS COPY DFHTCADS. 
02 TWADEF PIC X(20). 

01 DFHTCTTE COPY DFHTCTTE. 

01 DFHTIOA COPY DFHTIOA. 

02 INPUT | 

03 TRNCD PIC X(4)_ 

03 MSSG PIC X(20). 

02 OUTPUT REDEFINES INPUT. 
03 YOUR-—MSG PIC X (20). 

PROCEDURE DIVISION. 

MOVE CSACDTA: TO TCACBAR. 
_ MOVE TCAFCAAA TO TCTTEAR. 
‘MOVE TCTTEDA TO TIOABAR. 

e 


MOVE ‘YOUR20 CHAR MSG’ TO YOUR-MSG. 


“MOVE 20 TO TIOATDL. 
' * , 
DFHTC TYPE=(WRITE,WAIT) 


* OPTIONAL 


q's A 


rooN 


CICSPG: PROC OPTIONS (MAIN,REENTRANT); 
%INCLUDE (DFHCSADS); 
%INCLUDE (DFHTCADS); 

2 TWADEF CHAR (20); ''° || 
%INCLUDE (DFHTCTTE); 
%INCLUDE (DFHTIOA); 

2 TRNCD CHAR (4) 

2 MSSG CHAR (20); 


DCL MESSAGE BASED(TIOABAR): 
2 TIOA PREFIX CHAR 12 
2 YOUR MSG CHAR 20: 


YOUR_MS$G="YOUR, 20 CHAR. MSG’; 
TLOATDL=20; | 
DFHTC , TYPE= (WRITE, WAIT} 


— 


“OPTIONAL 


OLS A 


INSURE THAT AFTER ISSUING MACRO 


DFHTC TYPE=READ °° = 


ADDRESS OF NEW TIOA IS PLACED IN TIOABAR 


‘LENGTH MAY BE OBTAINED FROM TIOATDL | 


LL'SA 


TCTTEAR 
TIOABAR 


TWADEF 


TRNCD 
MSSG 


10 
DFHCSADS 
DFHTCADS 
CL20 
DFHTCTTE 
DFHTIOA 
CL4 


TCTTEAR,TCAFCAAA 
TIOABAR,TCTTEDA 


TYPE=READ 


TIOABAR,TCTTEDA 


pe 


PLLGA 


oe os. 


' 


a a) 


IDENTIFICATION DIVISION. 


ENVIRONMENT DIVISION. :. 


DATA DIVISION. 

LINKAGE SECTION. 

01 DFHBLLDS COPY DFHBLLDS. 
02 TCTTEAR PIC S9(8) COMP. 
02 TIOABAR PIC S9(8) COMP. 

01 DFHCSADS COPY DFHCSADS. 


01 DFHTCADS COPY DFHTCADS. 


02 TWADEF PIC X(20). 
01 DFHTCTTE COPY DFHTCTTE. 
01 DFHTIOA COPY DFHTIOA. 

02 TRNCD PIC X(4). 

02 MSSG PIC X(20). — 
PROCEDURE DIVISION. 

MOVE CSACDTA TO TCACBAR. 
1.1 {MOVE TCAFCAAA TO, TCTTEAR. 
1,1 MOVE TCTTEDA TO. TIOABAR. 
ae pS ee 


Punt ore * | 

1 iDFHTC TyPEfEAD, 24/7) 
‘MOVE ‘TCTTEDA TO TIOABAR. 

i} ee -@ ; i) ee ee 6 


eee a : so ae AES ' 


GQLLGA 


CICSPG: PROC OPTIONS (MAIN,REENTRANT); 
%INCLUDE (DFHCSADS); 
%INCLUDE (DFHTCADS). 

2 TWADEF CHAR (20); 
%INCLUDE (DFHTCTTE); 
%INCLUDE (DFHTIOA); 

2 TRNCD CHAR (4); 

2 MSSG CHAR (20); 


e 
® 
® 
DFHTC TYPE=READ 
TIOABAR=TCTTEDA; 
pyre: Tee aah ee. Ce ase aes 


ice aes eee 


oy ie TE ees 


CLA 


DFHTC TYPE=WRITE 


ae ty a See ee i 


DFHTC TYPE=WAIT 


DFHTC TYPE=READ 
@ : 


° - _DFHTC TYPE=(READ.WAIT) 


DFHTC TYPE=WAIT oe 


e DFHTC TYPE=(WRITE,WAIT) 


DFHTC TYPE=WAIT 


ASSEMBLER AND PL/I ONLY 


. > aAvs'avaHy 
.  avay 


JAVS'dvay’S LIdM 
~ @Vay’‘S.LIdM 


=» SAWS'S.LINM 
aan SLIM 


GNVH3d0 3JAVS 


V.5.13 


(vioaloy) | 


vVauv HaSN 3LLOL 


\ ) | 


V.5.15 


SLA 


{ 


ASSEMBLER > 


TCTTEAR 
TIOABAR 


TCTXBAR 


TCTEXT 


EQU — 
EQU 


COPY 


COPY 
COPY 


COPY — 


EQU 
USING 
DS 


' |+CSECT 


Lp: 
L, doa } 
fo 


9 
10 
DFHTCADS 


DFHCSADS 


DFHTCTTE 
DFHTIOA 
11 


*,TCTXBAR ~~ 


x ‘ 


TCTTEAR , TCAFCAAA 


TCTXBAR,TCTTECIA | 


4 ‘ " ; ° ' a , : 
PUR, Oe od HA Sed a } 3 
‘ ; : 
COBOL ' 3 | _ Oo — 
: : : : : : + t : : 2 { 


LINKAGE SECTION. 


01 DFHBLLDS COPY DFHBLLDS. 
02 TCTTEAR PIC S9(8) COMP. 
02 TIOABAR PIC S9(8) COMP. 
02 TCTXBAR PIC S9(8) COMP. 
01 DFHCSADS COPY DFHCSADS. 
01 DFHTCADS COPY DFHTCADS. 
O02 .... 
01 DFHTCTTE COPY DFHTCTTE. 
01 DFHTIOA COPY DFHTIOA. 
OF was 
Ol) TCT-EXT. 
GE ous 
PROCEDURE DIVISION. 
01 “1. “MOVE CSACDTA TO TCACBAR. 
- MOVE TCAFCAAA TO TCTTEAR. 
“MOVE TCTTECIA TO TCTXBAR. 


V.5.16a 


G9L°S"A 


PL/I 


SINCLUDE (DFHCSADS) ; 
SINCLUDE (DFHTCADS) ; 
SINCLUDE (DFHTCTTE) ; 
SINCLUDE (DFHTIOA) ; 


2 eas : 
DECLARE 1 TCTEXT BASED (TCTXBAR) , 
Z éan _ 


TCTXBAR=TCTTECTIA; 


TCA 


TCTTE 


ae | 


V.9.6 


CSA 


STORAGE CONTROL 


CSACDTA 


CSACBAR (REG. 13) 


TCA 


TCACBAR (REG. 


TCASCSA 


12) 


CSAWABA 


TIOA 


TIOABAR TIOADBA 


SAACBAR 


TSIOA | 


TSIOABAR 


TDOA 


TDOABAR 


TWACOBA 


V.9.9 


OLGA 


COPY DFHTCADS , 


EQUATE REGISTERS FOR TCTTEAR , TIOABAR 


* 
¢ Bi » 
‘ J 


DFHCSADS , DFHTCTTE 


2,0 


‘ 
2 


TCTTEAR,TCAFCAAA 


TYPE=GETMAIN, 
INITIMG=00, 
NUMBYTE=100, 
CLASS=TERMINAL 
TIOABAR,TCASCSA 
TIOABAR,TCTTEDA 
TIOADBA(100), MSSG 
TIOATDL,=H'100" 


TYPE=(WRITE,WAIT) 


DFHTIOA 


< 


POLE A 


COPY DFHBLLDS 


COPY 


INCLUDE BASE LOCATORS FOR TCTTEAR , TIOABAR 


DFHCSADS , DFHTCADS 
COPY DFHTCTTE , DFHTIOA IN BLL SEQUENCE 


PROCEDURE DIVISION. 
MOVE CSACDTA TO TCACBAR. 
MOVE TCAFCAAA TO TCTTEAR. 


DFHSC TYPE=GETMAIN, 
INITIMG=00, 
NUMBYTE=100, 
CLASS=TERMINAL 

MOVE TCASCSA TO TIOABAR. 
MOVE TIOABAR TO TCTTEDA. 
MOVE MSSG TO OUT-AREA. 
MOVE 100 TO TIOATDL. 


DFHTC TYPE=(WRITE,WAIT) 


x 


GOL6 A 


%INCLUDE DFHTCADS , DFHCSADS , 


DFHSC TYPE=GETMAIN, 

INITIMG=00, 
NUMBYTE=100, 
CLASS=TERMINAL 

TIOABAR=TCASCSA; 

TCTTEDA=TIOABAR; 

TIOATDL=100; 

MSGOUT=MSSG; 


DFHTC TYPE=(WRITE,WAIT) 


DFHTCTTE, , DFHTIOA 
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OA 


32/0 


KEYBOARD | 
CURSOR MOVEMENT KEYS 
ERASE KEYS 

ATTENTION KEYS 


PROGRAMMABLE FEATURES 

FIELD CONCEPT 
PROTECTED _ UNPROTECTED 
ALPHAMERIC _ NUMERIC 
BRIGHT _ NORMAL _ NON DISPLAY 
AUTOSKIP 
SELECTOR LIGHT PEN 

AUDIBLE ALARM 

PRINTER FORMATTING 


LX3t 


X 
JONANODAS JONSNOAS JONANODAS L 
4S Vas GQNVWWOD C 
JLOWSY 
} JONANDAS JONIANDAS 
LX3t | JOM 
m= BS) Vas 
WOOT 


WVSYLS VLVG LNdLNO OLZE 


<S 


V.6.4 


SOA 


REMOTE 3270 OUTPUT DATA STREAM 


COMMAND SEQUENCE 
oo TEXT : 
SEQUENCE | SEQUENCE : 
‘XN 


COMMANDS 


ERASE/WRITE 

WRITE 

ERASE ALL UNPROTECTED 
READ MODIFY 


COMMAND 
SEQUENCE 


WCC 


KEYBOARD RESTORE 
RESET MODIFIED DATA TAG | 


— ssayaav 


JONANOAS | FONANOAS 
dS Vas 


JINANDAS VES 
WVSYLS VLVG LNdLNO OLCE ALOWSAY 


é 


V.6.6 


LOA 


a. 


REMOTE 3270 OUTPUT DATA STREAM 
SF SEQUENCE 


CHARACTERISTICS 


: TEXT 
SEQUENCE | SEQUENCE 
\ 

PROTECTED 
UNPROTECTED 
BRIGHTNESS 
NUMERIC | 
SELECTOR PEN DETECT | ATTRIBUTE 
MODIFIED DATA | CODE 


SOA 


3270 INPUT DATA STREAM 
READ MODIFIED 


LOCAL 


CURSOR 


ADDRESS 


REMOTE 


ADDRESS E 
CURSOR 

OF SOURCE T 
ADDRESS x 


(CU AND DEV.) 


669A 


REMOTE 3270 INPUT DATA STREAM 
ATTENTION ID 


SOURCE | ~ cuRSOR 
deuietebbaied . | ADDRESS 
(CU AND DEV.) 


/ \ 
AID SETTINGS 


ENTER 

CLEAR 

PA KEYS 

PF KEYS 

SELECTOR PEN DETECT 
CANCEL 

TEST REQUEST 


OLOA 


ota ioe 


4 
sy 


REMOTE 3270 INPUT DATA STREAM 


FIELD DATA 

FIELD FIELD 
DATA DATA 

Zo \ 

ra \ 
/ % 
/ \ 

vA \ 


ADDRESS 
FIRST 
CHARACTER 
IN FIELD 


3fpORP 
IF NOT LAST 
FIELD ON LINE 


( 


1 OR MORE 
DISPLAYED 
ALPHAME RIC 


neem @ @ = a @& 


DESIGNATOR 


m_ we es 2s = ee Oe ee 


FIELD FORMAT FOR SELECTOR PEN DETECTION 
o 
7 
s 
| : 
la 
: 


; | 
i 
a 
cy 

| 
| 


V.6.11 


LA 


WHAT IS BASIC MAPPING? 
FACILITY OF CICS 


COLLECTION OF MACROS 
WITHIN APPLICATION PROGRAM 
Listen EXTERNAL TO APPLICATION PROGRAM 


DESCRIBES TERMINAL DATA STREAM 
INPUT . 


ALLOWS UTILIZATION OF TERMINAL FEATURES 


CLA 


WHY USE BASIC MAPPING? 
NO TERMINAL DATA STREAM CODING REQUIRED 


PROVIDES ACCESS TO DATA FIELDS USING 
SYMBOLIC FIELDNAMES 


ASSEMBLED MAPS CONTAIN THE TERMINAL DEVICE 
DEPENDENT CODE 


MAPS NOT REQUIRED TO BE PART. OF PROGRAM 


ALLOWS REPOSITIONING FIELDS WITHOUT MODIFYING 
APPLICATION PROGRAM 


MULTIPLE LANGUAGE SUPPORT 


SLA 


DEVICE INDEPENDENCE 


PERMITS THE APPLICATION PROGRAM TO BE WRITTEN 
WITHOUT REGARD TO THE PHYSICAL CHARACTERISTICS 
OF THE USER TERMINAL 


VLA 


FORMAT INDEPENDENCE 


PERMITS THE APPLICATION PROGRAM TO BE WRITTEN 
WITHOUT REGARD TO THE PHYSICAL PLACEMENT OF 
FIELDS ON THE TERMINAL 


NOISHAANOO IVWNIWYSL 
SddAL IWNINYSL AIdILINW 


éINVLYOdWNI SAONAGNAdaGNI SJOIAAG SI AHM 


FINAGNAdIGNI FDIAAC 


V.7.5 


ILA 


ac. 


Cc. 
MAPPING 
DEVICE INDEPENDENCE 


‘SUPPLIED BY 
APPLICATION 
PROGRAM 


LINE TERM | LINE 
DATA DATA 
CTL CTL CTL 


it ft oo 


SUPPLIED SUPPLIED SUPPLIED 
BY TCP BY BMS BY TCP 


DEVICE INDEPENDENCE 


TCTTE 
TERMINAL TYPE 


APPLICATION 
PROGRAM 


BASIC 
MAPPING 
SUPPORT 


DEV DEP DEV DEP 
CTL CHAR DATA CTL CHAR DATA 


V.7.7 


oy 


IWNIWYSL 


VLVO TVILINI 
ALNEIVLILV 
HLONS1 
. NOILISOd 


WV¥90"d 
NOILVOITNddV 


FIINIGNIMIGNI JIAIA 


V.7.8 


GLA 


DEVICE INDEPENDENCE 


APPL. TCTTE 
PROG. | |. 


MAPNAME 


CPU 


DEVICE 
DEPENDENT 


MAP 


CICS 
LOAD LIBRARY 


ONIDVd 


V.7.10 


LLLA 


C 


ROUTING 


APPL. DATA. 


AAAA 
B BBB 


BASIC 
MAPPING 
SUPPORT 


CLL A 


FORMAT INDEPENDENCE 


WHY IS FORMAT INDEPENDENCE IMPORTANT? 
REDUCES PROGRAM MAINTENANCE 


REARRANGE 
FIELDS ADD 

REMOVE 

HEADINGS 
SCREEN ¢ KEYWORDS 


FORMATS 


PEL LA 


tae 


r 
a 4 S 


FORMAT INDEPENDENCE 


APPL. PROG. 


MOVE ‘AA’ TO FLD1. 
MOVE ‘BB’ TO FLD2. 


MOVE ‘CC’ TO FLDS. 


al SYMBOLIC 
FIELDNAMES 


TERMINAL 
CC AA BB 


GEL LA 


» 
Uf 


FORMAT INDEPENDENCE 


APPL. PROG. 


MOVE ‘AA’ TQ FLD1. 
MOVE ‘BB’ TO FLD2. 
MOVE ‘CC’ TO FLDS3. 


SYMBOLIC 
FIELDNAMES 
TIOA 
FLD3 FLD1 FLD2 
TERMINAL 
CC AA BB 


VILLA 


FORMAT INDEPENDENCE 


FIELD FORMAT 


LENGTH DATA | LENGTH 


FIELD 1 | FIELD 2 


BLOCK FORMAT 


SPACE DATA | SPACE 


DATA 
TEXT FORMAT 


-FIELD 1 FIELD 2 
=_$_$_$_____—___—_—_—_—_—_—_—_- DATA —-e—e 


DATA 


en, 


GL LA 


USING MAPPING 


MAPS ASSEMBLED OFF-LINE 
CSECTS (PHYSICAL MAPS) PROGRAM LIBRARY 


DSECTS — SOURCE STATEMENT LIBRARY 


MAP DEFINITIONS MAY BE OVERRIDDEN AT EXECUTE TIME 
MULTIPLE LANGUAGE SUPPORT 

INVOKED BY USING DFHBMS MACROS 

MAY INTERMIX DFHBMS MACROS AND TERMINAL CONTROL MACROS 


OL LA 


BASIC MAPPING 


GENERAL FLOW OUTPUT 


APP. PGM 
_-~ DSECT 


DFHBMS 


BASIC 
MAPPING 
MODULES 


TERMINAL 
| CONTROL 
PROGRAM 


SELECTIVE MERGE 


gu 
fe 


OUTPUT 
MAP / 


es 
TERMINAL TYPE 
/ 


/ ; 
TCTTE _— 


LULA 


BASIC MAPPING -__ 


GENERAL FLOW INPUT ( | \ - ~ 


| TERMINAL | 
CONTROL | 
PROGRAM 


APP. PGM BASIC 
DSECT | | MAPPING 


DFHBMS | MODULES 


MS on 


SELECTIVE MOVE 


/ 
TERMINAL TYPE 
/ 


/ 
TCTTE 


SL LA 


BASIC MAPPING 


HOW TO USE BASIC MAPPING 


DEFINE NEEDS OF OPERATOR 
HEADINGS 
DATA 
~DISPLAYABLE 
HIGH LIGHTED 
PEN DETECTABLE 
CURSOR POSITION 


DEFINE NEEDS OF APPLICATION PROGRAM 
NO HEADINGS 
TYPE OF ACTION 
DATA PERTINENT TO ACTION 


CREATE OUTPUT MAPS TO SUPPLY OPERATOR NEEDS 


CREATE INPUT MAPS TO SUPPLY APPLICATION PROGRAM 
NEEDS 


CREATE DSECTS TO MATCH MAPS (INPUT AND OUTPUT) 


6LLA 


MAPPING 
MACROS AVAILABLE 


MAPSET DEFINITION 
~*~ DFHMSD TYPE=MAP 
PHYSICAL MAP DEFINITION 
DFHMDI (SCREEN POSITION OF MAP) 
DFHMDF = (SPECIFIC FIELD INFORMATION 
ONE PER FIELD) 
DFHMSD TYPE=FINAL 
SYMBOLIC STORAGE DEFINITION 
DFHMSD TYPE=DSECT 
DFHMD!I (SCREEN POSITION OF MAP) 
DFHMDF = (SPECIFIC FIELD INFORMATION 
ONE PER FIELD) 
_ DFHMSD TYPE=FINAL 
APPLICATION PROGRAM 
DFHBMS TYPE=IN,MAP,OUT,TEXTBLD,PAGEBLD, 
PAGEOUT,ROUTE 


LOLA 


» 


TERMINAL MAP SET 
TYPE SUFFIX 


CRLP 
TAPE 

DISK 

TWX 

1050 

2740 

2741 

2770 

2780 

3780 

3270-1 

3270-2 

2980 (EXCEPT MODEL 4) 
2980—4 | 

3600 

3653 

3650U 

3650/3270 

3270 _ BLANK 
ALL (OF THE ABOVE BLANK 


XS2< CDWDOPOSBSCTFASCT OA MAMIOOW D> 


MAPPING 
MAPSET 


MAPSETNAME (PPT) 
DFHMSD ——» /| MAPSET SPECIFICATION 


| MAPNAME 


DFHMD!| ——> 
MAP. SPECIFICATION 


DFHMDF——> FIELD SPECIFICATION 
DFHMDF—-——~> FIELD SPECIFICATION 
I cl ee 
° 


MAPNAME 


MAP SPECIFICATION 


Ee? O00 i iG CEE cE 
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9CLA 


Seite 
¢ ‘ 

; 

C 


«amo * 
x i 
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MAPPING 
JUSTIFICA TION 
NUMERIC DATA — 
INPUT —-[ 12345 | 


DSECT 


ALPHAMERIC DATA — 


INPUT 


DSECT 


‘NY 


| 0000012345 | 


| JONES | 


| JONESseeeB | 


B=BLANK 


LOLA 


MONTH DFHMDF 
DAY DFHMDF 
YEAR DFHMDF 


GROUP NAME 


POS=1,LENGTH=2,GRPNAME=DATE,ATTRB=NUM 
POS=4, LENGTH=2,GRPNAME=DATE 
POS=6, LENG TH=2,GRPNAME=DATE 


ue 


DATEF DATEO 


DATEL DATEA |e “7 


THE ATTRB PARAMETER 


MONTH! DAY! YEARI 
MONTHO DAYO YEARO 


IS PERMITTED ON THE FIRST FIELD OF GROUP ONLY 


SOLA 


OCCURS 


FLD2 DFHMDF .. . LENGTH=4,0CCURS=3 


LGTH DATA LGTH DATA LGTH | ATT | DATA 


FLD2L FLD2A FLD2I FLD2N 
FLD2D FLD2F FLD20 


OCCURS AND GRPNAME ARE MUTUALLY EXCLUSIVE 


66 ZZZ Did OXAIAl4 CO 


‘66A6666 Did IXQ 1314 CO 


104sd 
SALVYANAD 


166°ZZZ,=LNOOId .66A6666,=NIDId ‘9=HLONIAT 


'”  JQWHAG XQ TAld 


re 


V.7.29 


(1NdLNO) O1d5d (INdNI) t1d3qd -INANWLYVdsd 
(1NdLNO) OAWVN (INdNI) ISWVN -AWVN 


‘-INAWLYVd4sd 
-AWVN 


YIISVW — LvVOE NOILVOIMIddV 
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LE LA 
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MAPSETA 


MAPA 


NAME 


DEPT 


MAPB 


DFHMSD 


DFHMDI 
DFHMDF 


DFHMDF 
DFHMDF 
DFHMDF 
DFHMDF 


DFHMDI 


DFHMSD 


ie 


TYPE=MAP,MODE=INOUT,LANG= 


LINE=1,COLUMN=1,SIZE=(10,40) 
POS=(1,1), LENGTH=30,ATTRB=(ASKIP,PROT), 
INITIAL='APPLICATION 3041 —MASTER’ 
POS=(2,1),LENGTH=8,ATTRB=(ASKIP,PROT), 
INITIAL="NAME:" 

POS=2,10), LENGTH=20,ATTRB=(IC), 
JUSTIFY=(LEFT,BLANK) 

POS=(3,1), LENGTH=12,ATTRB=(ASKIP,PROT), 
INITIAL=‘DEPARTMENT:’ — 
POS=(3,14), LENGTH=(12) 


(DEFINE NEXT MAP IN MAPSET) 


(TERMINATE MAPSET) 


TYPE=FINAL 


(LNdLNO) O1daG = (LAdNI) 11d3G : INJWLYVd3aG 
(LNdLNO) OJWVYN = (LMdNI) ISWWN ‘JWYN 


-INAWLYVddd 
-JINVN 
YAILSVW — LOE NOILVOMIddV 


ce 
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vELA 


et 


: a 
ao 


MAPSETA — TYPE=DSECT,LANG=ASM 


MAPAI 


‘LENGTH’ 

‘FLAG’ 
‘ATTRIBUTE’ 
‘NAME — INPUT’ 
‘NAME — OUTPUT’ 


PGE LA 


> 


01 


01 


01 


ae 


MAPSETA — TYPE=DSECT,LANG=COBOL 


MAPAI | 
02 NAMEL PIC S9(4) COMP. ‘LENGTH’ 
O02 NAMEF PIC X. | ‘FLAG’ 
02 FILLER REDEFINES NAMEF. | 
03 NAMEA PIC X. ‘ATTRIBUTE’ 
02 NAME! PIC X(20). ‘NAME — INPUT’ 


02 FILLER PIC xX. 

02 DEPTL PIC S9(4) COMP. 

02 DEPTF PIC X. 

02 FILLER REDEFINES DEPTF. 
03 DEPTA PIC X. 

02 DEPTI PIC X(12). 


HWORD ALIGNMENT 


MAPAO REDEFINES MAPAI. 

02 FILLER X(3). 

02 NAMEO PIC X(20). ‘NAME — OUTPUT’ 
02 FILLER PIC X. ALIGNMENT 

02 FILLER X(3). ) 

02 DEPTO PIC X(12) 


MAPBI REDEFINES MAPAI. 


e) 


qse’L A 


5) 


MAPSETA — TYPE=DSECT,LANG=COBOL,BASE=DFHTIOA, 


01 


01 


01 


TIOAPFX=YES 


MAPAI REDEFINES DFHTIOA 
02 FILLER PIC X(12). TIOA PREFIX 
02 NAMEL PIC $9(4) COMP. ‘LENGTH’ 
02 NAMEF PIC X. ‘FLAG’ 
02 FILLER REDEFINES NAMEF 
03 NAMEA PIC X. ‘FLAG’ 
02 NAME! PIC X(20). ‘NAME — INPUT’ 
02 FILLER PIC X. 
02 DEPTL PIC S9(4) COMP. 
02 DEPTF PIC X. 
02 FILLER REDEFINES DEPTF. 
03 DEPTA PIC X. 
02 DEPTI PIC X(12). 


MAPAO REDEFINES DFHTIOA 


02 
02 


FILLER 
FILLER 
NAMEO 
FILLER 
FILLER 


X(12). TIOA PREFIX 
X(3). 

PIC X(20). ‘NAME — OUTPUT’ 
PIC X. ALIGNMENT 

X(3). 


DEPTO PIC X(12). 


MAPBI REDEFINES DFHTIOA 


* 


OGE'L"A 


MAPSETA — TYPE=DSECT,LANG=COBOL,TIOAPFX=YES 


01 MAPAI 


02 FILLER PIC X(12). 


02 NAMEL PIC S9(4) COMP. 


O2 NAMEA PIC X. 


O02 FILLER REDEFINES NAMEA. 


O03 NAMEF PIC X. 
O02 NAMEI PIC X(20). 
02 DEPTL PIC S9(4) COMP. 
02 DEPTA PIC X. 


02 FILLER REDEFINES DEPTA. 


03 DEPTF PIC X. 
O02 DEPT! PIC X(12). 


01 MAPAO REDEFINES MAPAI. 


O02 FILLER PIC X(12). 
O02 FILLER PIC X(3). 
02 NAMEO PIC X(20). 
02 FILLER PIC X(3). | 
02 DEPTO PIC X(12). 


01 MAPBI 


REDEFINES MAPAI. 


‘LENGTH’ 


ATTRIBUTE’ 


‘FLAG’ 
‘NAME —_ INPUT’ 


‘NAME — OUTPUT’ 


POE LA 
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MAPSETA — TYPE=DSECT,LANG=PL1,TIOAPFX=YES 


DECLARE 1 MAPAI 
2 DFHMSI CHAR 


NAMEL FIXED 


BASED(BMSMAPBR), 
(12), 
BINARY (15,0), 


NAMEA CHAR (1), 


DEPTL FIXED BINARY (15,0), 
DEPTA CHAR (1), 
DEPT! CHAR (12), 


DECLARE 1 MAPAO BASED(BMSMAPBR), 


2 DFHMS2 CHAR 
DFHMS3 CHAR 
NAMEF CHAR 
NAMEO CHAR 


2 
2 
2 NAME! CHAR (20), 
2 
2 
2 


(12), 

(2), 
(1), 
(20), 

(2), 


DEPTF CHAR (1), 
DEPTO CHAR (12), 


2 
2 
2 
2 DFHMS4 CHAR 
2 
2 


DECLARE 1 MAPBI 


BASED(BMSMAPBR), 


‘LENGTH’ 
‘ATTRIBUTE’ 


‘NAME — INPUT" 


‘FLAG’ 
‘NAME — OUTPUT’ 


GSE LA 


te, x 
a he iin 


C rs 


MAPSETA — TYPE=DSECT,LANG=PL1,BASE=TIOABAR, * 


TIOAPFX=YES 


DECLARE 1 MAPAI BASED (TIOABAR), 
2 DFHMS1 CHARACTER (12), 
NAMEL FIXED BINARY (15,0), 

NAMEF CHAR (1), 

NAME! CHAR (20), 

DEPTL FIXED BINARY (15,0), 
DEPTF CHAR (1), 

DEPT! CHAR (12), 

DECLARE 1 MAPAO BASED (TIOABAR), 
DFHMS4 CHAR (12), 

2 DFHMS2 CHAR (2), 

2 NAMEA CHAR (1), 

2 NAMEO CHAR (20), 

2 DFHMS3 CHAR (2), 
2 
2 


NO 


DEPTA CHAR (1), 
DEPTO CHAR (12), 


DECLARE 1 MAPBI BASED (TIOABAR), 


‘LENGTH’ 
‘FLAG’ 
‘NAME — INPUT’ 


‘ATTRIBUTE’ 
‘NAME — OUTPUT’ 


LELA 


TIOABAR EQU_ 10 
COPY DFHTIOA — 
COPY MAPSETA — 


TIOABAR EQU- 10 
COPY DFHTIOA 
COPY MAPSETA 
ORG TIOADBA 
COPY MAPSETB 


TIOABAR EQU 10 
-~MAPBBAR- EQU 9 
COPY DFHTIOA 
COPY MAPSETA 
USING *,MAPBBAR 
DS -=CL12  # 
COPY MAPSETB © 


ese LA 


LINKAGE SECTION. 
01 DFHBLLDS COPY DFHBLLDS. 
1 ae 
02 TIOABAR ... 
O02 MAPBAR ... 
Oh. wea 
01 DFHTIOA COPY DFHTIOA. 
O01 MAPA COPY MAPSETA. 


LINKAGE SECTION. 
O01 DFHBLLDS COPY DFHBLLDS. 
OZ. 4a | : 
O2 TIOABAR ... 
O2 MAPBAR ... 
UL «ex 
Ol DFHTIOA COPY DFHTIOA. 
Ol CBASE PIC .... 
Ol MAPSETA COPY MAPSETA. 
O01 MAPSETB COPY MAPSETB 


qse LA 


LINKAGE SECTION. 


Ol 


DFHBLLDS COPY DFHBLLDS. 
02... 
02 TIOABAR ... 

02 MAPBARA ... 

02 MAPBARB ... 
DFHTIOA COPY DFHTIOA. 
MAPA COPY MAPSETA. 
MAPB COPY MAPSETB. 


-GLHSdWW HANTIONIZ 
*-WLASdWW AANIONIZ 
*WOILHAG HAN TIONI2 


& 


V.7.39 


ag9Gg'’vect$gaasaseaSANOraaad 


gaggqG'vpeztgasaagaSAJNOraasa 


ININOILISOd G7TdlF 


ONiddVIN 


4 
al 


V.7.40 


Ly LA 


—,, 


ca ; 
er 
»N . 


MAPPING 


FORMAT INDEPENDENCE 


APPL. PROG. 


APPL. DATA 


| SYMBOLIC FIELDNAMES 
TIOA (DSECT) 


a JONES aa $234.56 DATA=FIELD 
BBBJONES8BB8B8$234 .56B8BBBBBBB 


JONES $234.56 


Zyl A 


fs 2 


’ 
» 


MAPPING 
BLOCK FORMAT 


APPL. PROG. 


APPL. DATA 


SYMBOLIC 
FIELDNAMES 


BBBJONESBBBBBHE23 4,568 BB BB IDATA=BLOCK 


TIOA (DSECT) 


JONES $234.56 


cy la 


satin, 
- 


s 
Ct 


LINE CONTROL 


DEVICE DEPENDENT 
aN 


NItTtt N 
BBBNAMEBBBBBBSALARY | DDDDpEBBYONESsBBBB $234.56 r 


CAUSES CAUSES 
CARRIAGE RETURN TRANSMISSION PAUSE 
LINE FEED CARRIAGE MOVEMENT 


4 


LINE 1 LINE 2 


SALARY 
$234.56 


ce 


MAPPING 


LINE CONTROL 
MAP APPL. PROG. 
FORMAT DATA APPL. DATA 
NAME 
SALARY 
TIOA 
JONES | $234.56 


BBB NAMEssaB8BBSALAR YBBBBB | 888 JONES 88888$234.56886B 


LINE 1 LINE 2 
BMS 


NITIIL | N 
BBB NAM EB8BBBBSALARY LDDDDD BBBJONESBBBBB $234.56, 


TCP 


NAME SALARY 
JONES $234.56 


V.7.44 


CSA 


DFHBMS 


4 
ia . 


TYPE=(ERASE,OUT),DATA=YES, 
_ MAP=MAP14,MAPSET=MAPSETA, 


CSA 


ae 


C 


OUTPUT MAPPING FLOW on 


PROGRAM | TCTTE 


GETMAIN TIOA TCTTEDA 
PROVIDE TCTTEDA 


Oo‘ 
MOVE DATA,ATTR 


DFHBMS OUT MAPX SYMBOLIC TIOA (DSECT) 
rIELDNAMES USER DATA, ATTR 
(DATA=ONLY}) 
BMS MAPX 


LOAD MAPX 
GETMAIN (NEW 
EXCHANGE > 
MAP OUT 


DEV DEP CODE 
CONSTANTS (FORMAT) 


(DATA= 


. 


FREEMAIN OLD _ (SAVE) 


i 
| 
| 
i] 
( 
i 
{ 
t 
] 
{ 
| 
| 
t 
{ 
| 
t 
| 
4 
SCHEDULE TERMINAL WRITE T 


DELETE MAPX a DATASTREAM 


RETURN _ 


VEA 


De: 


; C 
1 a i | 
x 


TERMINAL TASK — 


TIOA 


NOT TIOA 


TCTTEDA 


TCTTEDA 


ADDRESS 


ZERO 


NON-TERMINAL TASK — 


NOT TIOA 


_! 


TCAMSIOA 


| (UNUSED) 


TCAMSIOA 


ADDRESS 


TCAMSIOA 


ADDRESS 


TCAMSIOA 


ADDRESS 


SSA 


pore 


y @ . 
“a. 


MAPPING 


MAPSET/MAP 


DFHBMS | MAPSET=MAPSETNAME, MAP=MAPNAME 


LOAD SCAN 


CICS 


LOAD 
LIBRARY 


MAPSET=YES MAPSETNAME—» TCAMSMSN 
MAP=YES MAPNAME ——> TCABMSMN 


= 


9°8 


MAPPING 
OUTPUT MAPPING 
DATA = FIELD 
FLD1A  -FLD10 FLD2A FLD20 , 
VV V V WV 
LENGTH DATA1 | | LENGTH DATA 2 
DATA = BLOCK 
FLDIA FLD10 - FLD2A FLD20 
V 4 V V 
~~ ‘\ ‘\ PXYQNNKRS NX \ON NN 
N 
NsPACE SN DATA 1 \ist aces DATA 2 SPACE N 


BMS 


PL SA 


TIOABAR 


WRITE 


ST 
DFHBMS 


os, 


10 
DFHTIOA 
MAPSETA 


TYPE=GETMAIN,NUMBYTE=480,INITIMG=00,CLASS=TERMINAL 
TIOABAR,TCASCSA 


TIOABAR,TCTTEDA 
TYPE=OUT ,MAP=MAPA,MAPSET=MAPSETA,DATA=YES 


GL’ A 


COBOL NO TIOAPFX EXAMPLE 


01 DFHBLLDS COPY DFHBLLDS. 

02 ——— | 

02 TIOABAR PIC $9(8) COMP. 

02 MAPBAR PIC S9(8) COMP. 

— 
01 DFHTIOA COPY DFHTIOA. 
q ——-— 01 CBASE PIC x(---} 
01 MAPAI COPY MAPSETA. 
PROCEDURE DIVISION. 

DFHSC TYPE=GETMAIN,CLASS=TERMINAL,|INITIMG=00,NUMBYTE=480 
MOVE TCASCSA TO TIOABAR. 
ADD 12 TIOABAR GIVING MAPBAR 
MOVE TIOABAR TO TCTTEDA. 

DFHBMS TYPE=OUT,MAP=MAPA,MAPSET=MAPSETA,DATA=YES 


ILS A 


PL/I NO TIOAPFX EXAMPLE 


%INCLUDE (DFHTIOA); 
2 TIOADATA CHAR (1); 
%INCLUDE (MAPSETA); 


ym een were 


DFHSC TYPE=GETMAIN,NUMBYTE=480,!INITIMG=00,CLASS=TERMINAL 


- TIOABAR=TCASCSA, 
BMSMAPBR=ADDRI(TIOADATA); 


WRITE: 
TCTTEDA=TIOABAR; 
DFHBMS TYPE=OUT,MAP=MAPA,MAPSET=MAPSETA,DATA=YES 


6S A 


— 


! , af —_ 
. 4 eee 


gore Ae 


MAPPING 
INPUT MAPPING FLOW 


PROGRAM 


DFHBMS IN MAPZ 
L TIOABAR,TCTTEDA 
MOVE DATA 


BMS 


READ/WAIT TERMINAL 
LOAD MAPZ 
GETMAIN NEW 715, 
EXCHANGE 


MAP IN 
FREEMAIN OLD | ~* 
DELETE MAPZ 
RETURN 


TCTTE 


TCTTEDA 


a 
TIOA 


INPUT DATA 


{\. 


/ 
/ 


\N 
\ 


MAPZ*. 


CTL INFORM 


‘ 


TYPE=IN,MAP 


DATASTREAM 


| TYPE=IN 


a ee ee ee ee a 


za 
© : 
> 


OL SA 


MAPPING 
INPUT MAPPING 


DATA 1 DATA 2 


BMS 
DATA = FIELD 


FLDIL FLDIF FLD1I FLD2L FLD2F FLD2I 
DATA = BLOCK 


FLDIF FLDI FLD2F FLD2I 


LL SA 


ie 


pe * » 4 
i ‘t 


MAPPING 


LIGHT PEN FIELDS 


Yv] > LP FIELD 


ENTER LIGHT 
KEY aCe PEN 
: OUTPUT 
AS ‘DET’ 
BMS , BMS 
DSECT DSECT 
INPUT 
) LP FIELD | perinep X80" 
LENGTH ATT DATA AS NOT "DET LENGTH ATT DATA 
OR OR 
DSECT DSECT 
INPUT 
1 XE FE DEFINED XE R’ 
AS ‘DET’ 
LENGTH ATT DATA LENGTH ATT DATA 


PCL SA 


+5) 


TIOABAR 


READIN 


EQU 10 
COPY DFHTIOA 
COPY MAPSETA 


DFHBMS TYPE=IN,MAP=MAPA,MAPSET=MAPSETA 
L TIOABAR,TCTTEDA 


GZL'S'A 


- on 


\ Cc . ; ¢ 


01 DFHBLLDS COPY DFHBLLDS. 
— 
02 TIOABAR PIC S9(8) COMP. 
02 MAPBAR PIC S9(8) COMP. 
01 —--- 
01 DFHTIOA COPY DFHTIOA. 
<—-—— 01 CBASE PIC X(-——-) 
01 MAPAI COPY MAPSETA. 
PROCEDURE DIVISION. 


DFHBMS TYPE=IN,MAP=MAPA,MAPSET=MAPSETA 
| MOVE TCTTEDA TO TIOABAR. 
ADD 12 TO TIOABAR GIVING MAPBAR. 
OR | 
MOVE TCTTEDA TO MAPBAR. 


IZL SA 


Go 


%INCLUDE (DFHTIOA): 


r-{ 2 TIOADATA CHAR (1); 


| 
| 
| 
| 
| 
| 
— 
| 


%INCLUDE (MAPSETA); 
READIN: 

DFHBMS TYPE=IN,MAP=MAPA,MAPSET=MAPSETA 
TIOABAR=TCTTEDA; 
BMSMAPBR=ADDR(TIOADATA); 

OR 
BMSMAPBR=TCTTEDA 


MAPPING 


COPY DFHBMSCA ey, 


CLS A 


DEHBMPEM 


3270 PRINTER END OF MESSAGE 


DFHBMPNL 3270 PRINTER NEW LINE SYMBOL 
DFHBMASK AUTOSKIP 

DFHBMUNP UNPROTECTED 

DFHBMUNN UNPROTECTED AND NUMERIC 
DFHBMPRO PROTECTED 

DFHBMBRY HIGH INTENSITY 

DFHBMDAR DARK, NONPRINT 

DFHBMFSE MDT ON 

DFHBMPRF PROTECTED AND MDT ON 
DFHBMASF AUTOSKIP AND MDT ON 
DFHMASB AUTOSKIP AND HIGH INTENSITY 


VLSA 


COPY DFHAID 


DFHENTER 
DFHCLEAR 
DFHPEN 
DFHPA1 
DFHPA2 
DFHPA3 
DFHPF1 

@ 

& 

6 


DFHPF12 


MAPPING 


ENTER KEY 

CLEAR KEY 

IMMEDIATELY DETECTABLE FIELD 
PA1 KEY 


PA2 KEY 

PA3 KEY 

PF1 KEY 

° 7 
@ 

PF12 KEY 


PEOLS'A 


TIOABAR 


INITIAL 
READIN 


PROCESS 


WRITE 


DFHSC 
DFHBMS 
DFHBMS 


oT 
DFHBMS 


10 


DFHTIOA 


MAPSETA 


TCTTEAR,TCAFCAAA 
TYPE=FREEMAIN, RELEASE=ALL 

TYPE=(ERASE,OQUT), MAP=MAPA,MAPSET=MAPSETA,DATA=NO 
TYPE=IN,MAP=MAPA,MAPSET=MAPSETA ss 
TIOABAR,TCTTEDA ; 
TYPE=GETMAIN,NUMBYTE=480,INITIMG=00,CLASS=TERMINAL 
TIOABAR,TCASCSA i 


TIOABAR,TCTTEDA 
TYPE=OUT,MAP=MAPA,MAPSET=MAPSETA,DATA=YES 


01 DFHBLLDS COPY DFHBLLDS. 
62 == 
02 TIOABAR PIC S9(8) COMP. 
02 MAPBAR PIC S9(8) COMP. 
Oi a 
01 DFHTIOA COPY DFHTIOA. 
q——-01 CBASE PIC x(——-) 
01 MAPAI COPY MAPSETA. 
PROCEDURE DIVISION. 
MOVE CSACDTA TO TCACBAR. 
MOVE TCAFCAAA TO TCTTEAR. 
DFHSC TYPE=FREEMAIN,RELEASE=ALL 
Cc DFHBMS TYPE=(ERASE,OUT),MAP=MAPA,MAPSET=MAPSETA,DATA=NO 
READIN. : 
DFHBMS TYPE=IN,MAP=MAPA,MAPSET=MAPSETA 
MOVE TCTTEDA TO TIOABAR. 
ADD 12 TO TIOABAR GIVING MAPBAR. 
PROCESS. | 
DFHSC TYPE=GETMAIN,CLASS=USER, INITIMG=00, X 
NUMBYTE=480 
“MOVE TCASCSA TO TIOABAR. 
ADD 12 TO TIOABAR GIVING MAPBAR. 
MAPOUT. 
MOVE TIOABAR TO TCTTEDA. 
DFHBMS TYPE=OUT,MAP=MAPA,MAPSET=MAPSETA,DATA=YES 


V.8.16b 


I9L' SA 


%INCLUDE (DFHTIOA); 
2 TIOADATA CHAR (1); 
%INCLUDE (MAPSETA); 
DFHSC TYPE=FREEMAIN,RELEASE=ALL 
DFHBMS TYPE=(E RASE,OUT), MAP=MAPA,MAPSET=MAPSETA,DATA=NO 
READIN: | 

DFHBMS TYPE=IN,MAP=MAPA,MAPSET=MAPSETA 
TIOABAR=TCTTEDA, 

BMSMAPBR=ADDR(TIOADATA); 
PROCESS: ! 

DFHSC TYPE=GETMAIN, NUMBYTE=480,NITIMG=00,CLASS=TERMINAL 
TIOABAR=TCASCSA, 
BMSMAPBR=ADDR(TIOADATA); 

WRITE: 
TCTTEDA=TIOABAR; 
DFHBMS TYPE=OUT,MAP=MAPA,MAPSET=MAPSETA,DATA=Y ES 


DEA 


‘a “s ae, 4 
SAACBAR 
SAA Storage Accounting Area (DFHSAADS) 
oe DATA 
X’8C’ | BYTE | HALFWORD WORD 
SAASAD 
SAASAFI SAASACA 

SAASACI 
SAACBAR — SAA Control Base Address Register SAASAFI — SAA Storage Accounting Format Identification 
SAASACA — SAA Storage Accounting Chain Address SAASAD-_ — SAA Storage Accounting Displacement (length) 


SAASACI — SAA Storage Accounting Class Identification 


COLA 


_ 
'?) 
E . 
— 
Oo) 
> 
"I 
©) 
~ > 
> 


F | 
DFHFC C 
P 
| FIOA 


DATA SET NAME 
ACCESS METHOD 

DEVICE TYPE 

SERVICES ALLOWED‘: °° 

RECORD — LENGTH, FORMAT, BLOCKING 
KEY — LENGTH, POSITION 


COLA 


FILE 1/0 AREA — FILE WORK AREA 


FILE 1/0 AREA (DFHFIOA) 
READ ONLY 
UNBLOCKED 
- FILE WORK AREA (DFHFWADS) 
UPDATE 


ADDITIONS (NEW) 
BLOCKED 


VM 

(LVdINOOD WVSI) Gqav 
G3aXNOOTENN — YO 4Jivadn 
Gano0o01g 


qd44d4dnd WVSA. 


(JGONW 3AOW) WVSA 


V.10.4 


GOLA 


RECORD IDENTIFICATION —___¥-_$_RDIDADR 


USER PROVIDED AREA 
TWA RECOMMENDED 


ISAM — RECORD KEY 


VSAM — RECORD KEY 
RELATIVE BYTE ADDRESS 
GENERIC KEY WITH EXPLICIT LENGTH 


L KEY 


SOLA 


DAM RECORD IDENTIFICATION. RDIDADR 


® UNBLOCKED — PHYSICAL RECORD SEARCH ARGUMENT 


@® BLOCKED — PHYSICAL RECORD SEARCH ARGUMENT 
CICS/VS DEBLOCKING ARGUMENT 


PHYSICAL RECORD SEARCH | DEBLOCKING 


REL BLK RECORD NUMBER OR KEY 


DFHEC RETMETH = 

MBBCCHH R | DFHFC RETMETH = RELREC OR KEY 
REL BLK | KEY \ | 

7a [ev 9S] 
weeccwua [wv §(] 


\| RECORD NUMBER OR KEY 


LOLA 


FIOABAR 


TWO WORDS 


storage accounting control information 


FIOABAR — File Input/Output Area Base Address Register 
FCFIOxxx — File Control File Input/Output xxx 
FCFIOFCT — FCFIO File Control Table — entry address 


WORD 
FCFIOLRA 


F IOA File Input/Output Area (DFHFIOA) 


DATA 


FIOADBA 
FCDSO1D 


FCFIOFCT 


FCFIOLRA — FCFIO Logical Record Address 
FIOADBA — File Input/Output Area Data Begin Address (DOS) 
FCDSO1D — File Control Data — area (OS variable) 


SOL A 


FWACBAR 


FWACBAR 


FWA Fite Work Area (DFHFWADS) 


X‘8F* TWO WORDS 


storage accounting area 


FWACBAR — File Work Area Control Base Address Register 
FCUFCTA - File Control Update File Control Table Address 


WORD 
FCUPDRA | 


DATA 
WORD 


| FCUFCTA FCUWA 


FCUPDRA — File Control UPDate Record Address 


FCUWA 


— File Control Update Work Area (data begin address) 


PE OLA 


FIOABAR EQU 6 a OS/VS ISAM UNBLOCKED (VSAM) 


FWACBAR EQU 7 


COPY DFHFIOA # wa, 
DS CLIG*. 


BLOCK DS CL120 
COPY DFHFWADS 
RECD DS CL80 


%INCLUDE (DFHFIOA); 

2 BLK_DESC CHAR (120); 
%INCLUDE (DFHFWADS); 

2 RECD_DESC CHAR (80); 


———_#_———— 2 OS_FILLR CHAR (16); 


G6OL*A 


LINKAGE SECTION. 
01 DFHBLLDS COPY DFHBLLDS. 
02 ——— 
O02 FIOABAR PIC S$9(8) COMP. 
02 FWACBAR PIC $9(8) COMP. 
01 —~—— | OS/VS ISAM UNBLOCKED (VSAM) 
01 DFHFIOA COPY DFHFIOA. 
O02 BLOCK-DESC PIC X(120). 


~<—_—__— 02 FILLER PIC X(16). 


01 DFHFWADS COPY DFHFWADS. 
02 REC-DESC PIC X(80). 


Os 


x< 


MOAHO=4OU YS 


—‘a14Aa>="avaid" 


'd31SVW=LASVLVva 
peat 5 1 


TOULNOO Alls 


JAHAC 


V.10.10a 


FILE CONTROL 


c CSA. 
CSACBAR (REG. 13) Le csAWaBA 
TCA 


TCACBAR (REG. 12) 


FIOA 


FIOABAR 


| FWACBAR 
VSWA a 
| VSWAREA VSWALEN 


VSWABAR 


TWACOBA 


V.10.11 


PZL'OL A 


FWACBAR 


KEYF 


RECORD 


READREC 


Sak toe? 
r : 
f 


READ-ONLY RETRIEVAL 


COPY  DFHCSADS 
COPY | DFHTCADS 


DS CL8 

COPY DFHFWADS 

DS CL100 

MVC KEYF.ACCTNO 


DFHFC TYPE=GET,DATASET=MASTERA,RDIDADR=KEYF 
L FWACBAR,TCAFCAA 


READ-ONLY RETRIEVAL 


LINKAGE SECTION. 
01 DFHBLLDS COPY DFHBLLDS. 
02 FWACBAR PIC S$9(8) COMP. 
01 DFHCSADS COPY DFHCSADS. 
01 DFHTCADS COPY DFHTCADS. 
02 KEYF PIC X(8). 
—_—— 
01 DFHFWADS COPY DFHFWADS. 
02 RECORD PIC xX(100). — 
03) KAA, 
PROCEDURE DIVISION. 
MOVE CSACDTA TO TCACBAR. 
MOVE TCAFCAAA TO TCTTEAR. 
MOVE ACCTNO TO KEYF. 
READ-REC. 


DFHFC TYPE=GET,DATASET=MASTERA,RDIDADR=KEYF 


MOVE TCAFCAA TQ FWACBAR. 


V.10.12b 


IZL'OL A 


READ-ONLY RETRIEVAL | 


%INCLUDE (DFHCSADS); 

%INCLUDE (DFHTCADS); 

2 KEYF CHAR (8); 

%INCLUDE (DFHFWADS); 

2 RECORD CHAR (100); 

KEYF=ACCTNO: | 

DFHFC TYPE=GET,DATASET=MASTERA,RDIDADR=KEYF 

FWACBAR=TCAFCAA; 


ELOL A 


“| VSWABAR 


VSWA vsam Work Area (DFHVSWA) 


TWO WORDS WORD 
VSWAREA 
VSWABAR — VSAM Work Area Base Address Register i 
Se 


VSWAREA — VSAM Work Area REcord Address — > ~~ Pa et ae © 
VSWALEN — VSAM Work Area Record LENgth 


WORD 
VSWALEN 


DATA 


¢#-——-—SaLAd 00e-—-—+> 


QQ Q___--- 
| NSTWMSA_ O08 | 


MG. 


VMSA 


__[ywosvouf 


AGOW 3LV901 WVSA 


* 
we 
e : A 
’ 
tig S 


is 


V.10.14 


PGL'OL'A 


KEYF 


VSWABAR 


RECDBAR 


RECORD 


READREC 


PROCESS 


LOCATE MODE 


DFHCSADS 
DFHTCADS 
CL8 


7 
DFHVSWA 


8 
* RECDBAR 


CL80 


KEYF,ACCTNO 
TYPE=GET,DATASET=VSMSTR,RDIDADR=KEYF, 


__MODE=LOCATE> 


VSWABAR, TCAFCAA 


_- RECDBAR,VSWAREA 


3 VSWALEN 


X 


QSL OLA 


LOCATE MODE 


01 DFHBLLDS COPY DFHBLLDS. 
02) == 
02 VSWABAR PIC S9(8) COMP. 
02 RECDBAR PIC S9(8) COMP. 
01 DFHCSADS COPY DFHCSADS. 
01 DFHTCADS COPY DFHTCADS. 
O02 KEYF PIC X(8). 
02 RECD—LENGTH PIC S9(8) COMP. 
Of. a= 


01 DFHVSWA COPY DFHVSWA. 


01 RECORD—DESCRIPTION. 
O02 RECORD PIC X(80). 
PROCEDURE DIVISION 


MOVE ACCTNO TO KEYF. 
READ—REC. 
DFHFC TYPE=GET,DATASET=VSMSTR,RDIDADR=KEYF, 
MODE=LOCATE 
MOVE TCAFCAA TO VSWABAR. 
MOVE VSWAREA TO RECDBAR. 
MOVE VSWALEN TO RECD—LENGTH. 
PROCESS. 


9GLOL'A 


LOCATE MODE 


%INCLUDE (DFHCSADS): 
%INCLUDE (DFHTCADS)- 
2 KEYF CHAR (8), 
2 RECD LEN FIXED BINARY (31); 
%INCLUDE (DFHVSWA): | 
DECLARE 1 RECDESC BASED (RECDBAR), 
2 RECD DESC CHAR (80); 
READREC: 
KEYF=ACCTNO; 
DFHFC TYPE=GET,DATASET=VSMSTR,RDIDADR=KEYF, 
MODE=LOCATE 
VSWABAR=TCAFCAA; 
~ RECDBAR=VSWAREA; 
RECD LEN=VSWALEN; 
PROCESS: 


PSLOL'A 


oo 


TEST FOR FIOA 


FIOABAR EQU 7 | 
COPY DFHFIOA 


L FIOABAR,TCAFCAA 
™ FIOAIND,FIOAM WAS FIOA RETURNED? 
BM GOTFIOA YES | 


O1 DFHFIOA COPY DFHFIOA. 


MOVE TCAFCAA TO FIOABAR. 
IF FIOAM, GO TO GOTFIOA. 


%INCLUDE (DFHFIOA); 


FIOABAR=TCAFCAA; 
IF FIOAIND=01'B THEN GO TO GOTFIOA; 


e8GL'OL A 


TEST FOR FWA 


FWACBAR EQU /7 
COPY DFHFWADS 


L FWACBAR, TCAFCAA : 
TM FWAIND,FWAM WAS FWA RETURNED? 
BO  GOTFWA YES 


01 DFHFWADS COPY DFHFWADS. 


MOVE TCAFCAA TO FWACBAR. 
IF FWAM, GO TO GOTFWA. 


%INCLUDE (DFHFWADS); 


FWACBAR=TCAFCAA; 
IF FWAIND="11'B THEN GO TO GOTFWA; 


ISL'OL A 


Cc 


TEST FOR VSWA 


VSWABAR EQU 7 
COPY DFHVSWA 


L VSWABAR,TCAFCAA 
™ VSWAID,VSWAM 
BZ GOTVSWA 


01 DFHVSWA COPY DFHVSWA. 


MOVE TCAFCAA TO VSWABAR. 
IF VSWAM, GO TO GOTVSWA. 


%INCLUDE (DFHVSWA); 


VSWABAR=TCAFCAA: | 
IF VSWAIO=‘00000000‘8 THEN GO TO 


WAS VSWA RETURNED? 
YES 


GOTVSWA: 


PEZLOLA 


FWACBAR 


KEYF 


RECORD 


READUPD 


WRITEUP 


UPDATE 


DFHCSADS 
DFHTCADS 
CL8 
DFHFWADS 
CL100 


KEYF,ACCTNO 
TYPE=GET,DATASET=MASTERB,RDIDADR=KEYF, 
TYPOPER=UPDATE 

FWACBAR,TCAFCAA 


FWACBAR,TCAFCAA 
TYPE=PUT 


X 


UPDATE 


LINKAGE SECTION. 
01 DFHBLLDS COPY DFHBLLDS. 
02 ——- 
02 FWACBAR PIC S$9(8) COMP. 
01 DFHCSADS COPY DFHCSADS. 
01 DFHTCADS COPY DFHTCADS. 
02 KEYF PIC X(8). 
01 ——— 
01 DFHFWADS COPY DFHFWADS. 
02 RECD PIC X(100). 
PROCEDURE DIVISION. 
MOVE CSACDTA TO TCACBAR. 
READUPD. 
MOVE ACCTNO TO KEYF. 
DFHFC TYPE=GET,DATASET=MASTERB,RDIDADR=KEYF, 


TYPOPER=UPDATE 
MOVE TCAFCAA TO FWACBAR. 


WRITEUPD. 
MOVE FWACBAR TO TCAFCAA. 
DFHFC TYPE=PUT 


X 


V.10.17b 


ILL OLA 


UPDATE 


% INCLUDE (DFHCSADS); 
% INCLUDE (DFHTCADS); 
2 KEYF CHAR (8); 
% INCLUDE (DFHFWADS); 
2 RECORD CHAR (100); 
READUPD: 
KEYF=ACCTNO; 


DFHFC TYPE=GET,DATASET=MASTERB,RDIDADR=KEYF, 


TYPOPER=UPDATE 
FWACBAR=TCAFCAA 


WRITEUP: 


TCAFCAA=FWACBAR 
DFHFC TYPE=PUT 


xX 


PSL'OL’A 


FWACBAR 
KEYF 


RECORD 


READUPD 


DELRECD 


DELETE 


DFHCSADS 
DFHTCADS 
CL8 
DFHFWADS 
CL100 


KEYF,ACCTNO 
TYPE=GET,DATASET=VSMSTR,RDIDADR=KEYF, 
TYPOPER=UPDATE,ARGTYP=KEY 
FWACBAR, TCAFCAA 


FWACBAR,TCAFCAA 
TYPE=PUT,TYPOPER=DELETE 


X 


G8L OLA 


DELETE 


LINKAGE SECTION. 
01 DFHBLLDS COPY DFHBLLDS. 

02 ——— 

O02 FWACBAR PIC $9(8) COMP. 
01 DFHCSADS COPY DFHCSADS. 
01 DFHTCADS COPY DFHTCADS. 

O2 KEYF PIC X(8). 

01 ——— 
01 DFHFWADS COPY DFHFWADS. 

02 RECD PIC X(100). 
PROCEDURE DIVISION. 

MOVE CSACDTA TO TCACBAR. 


READUPD. 


MOVE ACCTNO TO KEYF. 
DFHFC TYPE=GET, DATASET=VSMSTR,RDIDADR=KEYF, 


TYPOPER=UPDATE,ARGT YP=KEY 
MOVE TCAFCAA TO FWACBAR. 
DELRECD. 
MOVE FWACBAR TO TCAFCAA. 
DFHFC TYPE=PUT,TYPOPER=DELETE 


o8L'OL'A 


DELETE 


%INCLUDE (DFHCSADS); 
%INCLUDE (DFHTCADS); 

2 KEYF CHAR (8); 
%INCLUDE (DFHFWADS); 

2 RECORD CHAR (100); 


READUPD: 
KEY F=ACCTNO; 
DFHFC TYPE=GET,DATASET=VSMSTR,RDIDADR=KEYF, 
TYPOPER=UPDATE,ARGTYP=KEY 


FWACBAR=TCAFCAA; 

DELRECD: 

TCAFCAA=FWACBAR 
DFHFC TYPE=PUT,TYPOPER=DELETE 


X 


BOZ OLA 


FWACBAR 


KEYF 


RECORD 


NEWREC 


c 


NEW RECORD 


DFHCSADS 
DFHTCADS 
CL8 | 
DFHFWADS 
CL100 


TYPE=GETAREA DATASET=MASTER 
FWACBAR.TCAFCAA 


KEYF,ACCTNO. 
FWACBAR,TCAFCAA 


TYPE=PUT,RDIDADR=KEYF,TYPOPER=NEWREC 


NEW RECORD 


LINKAGE SECTION. 
01 DFHBLLDS COPY DFHBLLDS. 


01 
01 


01 
01 


02 ——— 

02 FWACBAR PIC $9(8) COMP. 
DFHCSADS COPY DFHCSADS. 

DFHTCADS COPY DFHTCADS. . 
O02 KEYF PIC X(8). 


DFHFWADS COPY DFHFWADS. 


~RECD-DESC PIC X(100). 


PROCEDURE DIVISION. 


MOVE CSACDTA TO TCACBAR. 


DFHFC TYPE=GETAREA,DATASET=MASTER | 
MOVE TCAFCAA TO FWACBAR. 


NEW-REC. 


MOVE ACCTNO TO KEYF. 

MOVE FWACBAR TO TCAFCAA. 

- DFHFC TYPE=PUT,RDIDADR=KEYF, X 
TYPOPER=NEWREC 


V.10.20b 


202 OLA 


oe 


C 


NEW RECORD 


%INCLUDE (DFHCSADS); 
%INCLUDE (DFHTCADS); 
2 KEYF CHAR (8); 
%INCLUDE (DFHFWADS); 
2 RECD CHAR (100); | 
DFHFC TYPE=GETAREA,DATASET=MASTER 
FWACBAR=TCAFCAA; 
NEW REC: 
KEYF=ACCTNO; 
TCAFCAA=FWACBAR; 


DFHFC TYPE=PUT,.RDIDADR=KEYF,TYPOPER=NEWREC 


LZ‘OL'A 


DFHFC 


DFHFC 


FILE CONTROL 
TYPE=RELEASE 

[, NORESP=symbolic address] 
[,ERROR=symbolic address] 
[,INVREQ=symbolic address] 

[ |OERROR=symbolic address] 

[, ILLOG |C=symbolic address | «—_——_—— VSAM 


~TYPE=RELEASE 


CC OLA 


a) 


VSAM 


RECORD DELETION (KSDS ONLY) 
NO FILE AREAS REQUIRED. 
DELETE SINGLE RECORD 

FULL KEY OR RBA 
DELETE MULTIPLE RECORDS 
GENERIC KEY 


DEOL'A 


VSAM RECORD DELETION 


SINGLE RECORD 


TYPE=DELETE,DATASET=VSMSTR,RDIDADR=KEYF, 


DFHFC 
ARGTYP=KEY,SRCHTYP=FKEQ 


MULTIPLE RECORDS 


TYPE=DELETE,DATASET=VSMSTR,RDIDADR=KEYF 


DFHFC 
ARGTYP=KEY ,SRCHTYP=GKEQ 


RDIDADR L KEY a | #RECDS 


NUMBER OF RECORDS DELETED 


9C'OL'A 


UNDEFINED RECORDS 


OUTPUT RECORD LENGTH SPECIFIED BY APPLICATION. 
TCAFCURL 


VARIABLE LENGTH RECORDS 


BLOCK LENGTH — RECORD LENGTH 
INCLUDED WITH DATA 


-LLBB DATA (| 


LOOL'A 


VARIABLE LENGTH RECORDS 


LLBB } LLBB | pata \ SESE: | pata \ LUBE DATA vata S$] 


7 LOGICAL RECORD aprst__T 
BLOCK RDF 


| 96 | 54 50 —= 24 /——20-—=| 14 osama 


(Si 


LLL A 


LEVEL OF ERROR 


@® SOURCE CODE 
e LINK EDIT 


® EXECUTION TIME | 
— OPERATOR ERROR 


— TERMINAL/LINE ERROR. 


— APPLICATION LOGIC 


C 
INFORMATION SOURCE 


COMPILER LISTINGS 


MAPS AND LISTINGS 


MESSAGE TO TERMINAL 
CSMT/CSTL MESSAGES 


CSMT/CSTL MESSAGES 


CICS DUMP 

TRACE TABLE 
CSMT/CSTL MESSAGES 
TERMINAL MESSAGE 


CLL A 


—_— 
“ 
= . 
- ’ 
¢ > > 


OPERATOR ERRORS 
AND MESSAGES 


SIGN ON 


NAME, PASSWORD ERRORS 


TRANSACTION INITIATION 


INVALID TRANSACTION ID 
SECURITY KEY VIOLATION 
DATA ENTRY 


MESSAGE TOO LONG 
FORMAT ERRORS 


ELLA 


TERMINAL ERRORS 
AND MESSAGES 


HARDWARE/TABLE ERRORS 


~BTAM 
VTAM/NCP 
UNIT CHECK/UNIT EXCEPTION 


APPLICATION ORIENTED ERRORS 


~~. ZERO OUTPUT LENGTH IN TIOA 


NO TIOA 
TIOA TOO SMALL 
OUTPUT TOO LONG FOR BUFFERED DEVICE 


PLLA 


x ere ny 
Peat = ~, 
| | 


APPLICATION PROGRAM ERRORS 
AND MESSAGES 


® MESSAGE TO TERMINAL 
DFH2005 TRANSACTION xxxx ABEND xxxx 


TRANSID CODE 


@ MESSAGE TO ‘CSMT" 
DFH2006 TRANSACTION xxxx ABEND xxxx AT xxxx 


TRANSID CODE TERMID 


@® CICS/VS TRANSACTION DUMP 
CODE = xxxx TASK = xxxx. 


CODE TRANSID 


IVANVW 9 8 W 
SdINNG 
SIOVSSIIN 
SONILSIN 


HOVOUdddV JISVE 


V.11.5 


OLL'A 


CUSTOMER INFORMATION CONTROL SYSTEM STORAGE DUMP CODE=ASRA TASK=PARX DATE= 76147 TIME=10.33.363 PAGE 001 
PSH AT ENTRY TO ABEND oTaD0004¢Co0eteac. 
REGS 14-4 500AA55C OOOAB2SE 00006208 00000000 OOCSFECO COOSF300 O00SE808 
REGS 5-11 OOOSFE2&8  0003899F COCBE990 00000000 000894038 O00SE9FO OCO3SFCCS 
TASK CONTROL AREA (USER AREA) ADDRESS 088880 TO O8&S89EF LENSTH 000170 
00¢C 0 000528S00 0f09CD78 OLOAEEDO 00000000 00000000 0209CD60 86497100 04316040 Ws 2a ewe ees eee ee ee oe coool lH 
0I6CL GOOSCC5A 9205F3FO 00000206 0009CD60 5009C6SA ADOSC73C O00588C90 SOOSCCIA * pre SO eee tere PG Ge eS cb ececs coe el 
CO5C++0 COCO00EO OOISEIYID OON0DCODCO 000894038 OOOACOF4 OO00SF2CS 400SCC5A 40059460 Leer ee ee ee ooo ee 4. ch o oe 
OCCG:90 OCCSFECO OCCS899F OOOSFELS 00069A68 500A710% O00AS16% OOCSSGIC OOOSSAS0 Wa Ate Sa ese ee SNe ewes ree eee eer-eeeiers * 
S06 30 FEOOSADN D7C1DGSES E2404040 ClECDSClL O7ED0004 COOSEC4SC 00C90000 C00873816 ®.... PARTS ASRA ree ee eee ee ee * 
099¢..0 SCOAA5SC OSO-B23E 00000008 C0000000 COOSFEZO O008F306 DODEELSOS OOCSFECS ¥, Soave eta cece cw eesons Seca lecwe® 
020CC0 CCOASISF OSOCBE99D O00000CO 00089403 OOCSE9FO OGOEFECS 00090000 00003000 Koeece. <. veceeneeeeZO..2H ee aes oo 
CICLO 05000000 0000C000 24F00000 00000000 00000000 9900090 OOOATCDA 000099060 Mecca seces 0. Vive wie See vere 
o5vi50 00270000 D°PClD9SE7 6BC4SCSE2 D7FS8ECD1 FOFLFO00 00000060 ESFOFOF1 FO4040F1 %....PARX. DIS?. $010 Seelw%s TOO1LO 1s 
Col129 FOFSF3F3 F6F54+000 C00000C9 00000000. 00c00000 COCO0dCO OC00CO000 00000900 #033363 eee eee eee ee eee al 
30901:--0 00009000 00000000 09000000 00000900 00C00000 00000000 60000000 00000000 Meee nevcesasccssvesenes estes ete eh Gee ¥ 
o501:-0 00000000 00000009 S8A0G01E8 O0CS9AD0 re ee oe eVenee * 
TASK CONTROL AREA (SYSTEM AREA)JADDRESS 068800 TO 0&8887F LENGTH 000080 
CIC 92 SA04O1E8 GODSSADO OC0S89A30 00089550 0000005C OODABDF4S 00058000 60000000 Woe wi aie eearess ee ee ee ee ee * 
O3°7020 OOOBESEOD CCO00000 00000000 000000900 00000000 O1CAAILES 009090050 000389220 HA ia eee ees ee Gr sue ane iariara eeu g ee aere * 
O0C0-+0 CC089210 00000900 00000000 00009000 00000000 00009000 00900000 000000590 Big tae Kaew a see We wWie Se bree Cale # 
GOC0c.0 06000000 00000000 00000060 00000000 090000C0 00000900 00000000 00000000 Wie 5S © ema eee ee eee eee ee * 
ASRA REGS O THRU 15 ADDRESS O9CCF&8 TO O9CD37 LENGTH 000040 
0¢°900 o0000ceCS 000000CO0 OOODSFECO 0008F300 OOOSES0S OOOSFE2S O00S8S9F 00CBE990 Sere er ae eee re Pees ee rary ae! 
OCe8G70 00000000 00039403 OOOSESFO O0006F2C8 000838-.065 00089220 GO00SECCO OOOAB2SE Wis en wes ee LO eee a ware bee. Garces x 


085680 
SE8AN 
GS°SCO0 
OSESEO - 
0535900 
C3E920 
0€8°49 
E2960 


ages 


CSS9A0 
0839C0 
OCS9E0 


086300 
058320 
086840 
026360 


O9CCF8 
0SCD18 


LLLA 


~~ 
Fa S 


‘ 
| 
f . 


CUSTOMER INFORMATION CONTROL SYSTEM STORAGE DUMP 


PROGRAM STORAGE 


000000 
000020 
030040 
000060 
006080 
OOS0A0 
oococo 
QO00CEO 
0001C0 
0090129 
C00140 
0590169 
0Cd1C0 
CICIAID 
0cd1C0 
COOLED 
coaedd 
WCOce 

CI0240 
C9026) 
090<380 
C9OCAO 
0390°cC0 
O00CEO 
C€903C0 
000320 
0002450 
000330 
0003550 
00035A0 
C902C0 
0003=0 
000400 
000420 
090449 
000460 


000480 


0004A0 
00C4C0 
O004E0O 
0C0500 
000520 
000540 
000560 
0005380 
0005A0 
0005C0 
OO95E0 
000600 
000620 
000640 
000660 


=800ED10D 
a 


5360F018 
O7FFOOCO 
920CFO8C 
921CFO06C 
ceCFOsC 
923CF02C 
GOS0FO1A 
00000010 
00000030 
000900050 
C90SFECS 
92800060 
92FCDIC7 
92 7ADICF 
9260D107 
B103+1A0 
D1B49203 
DeCsD1AC 
71040950 
80255870 
D°07E&C00 
BB580573 
DYA441EO 
D1A45870 
4700A174 
BOF65580 
60SCS50E1 
55038011 
BOSOBOEA 
D2eu3scrs 
D1E4D203 
41E03016 
5580D1A4 
B0C54770 


5370D1 AC 
D1iBd0202 
D2027043 
808086C3 
D203580F38 
D1540203 
D0S05859 
8080B0B9 
58F0B960 
809050AD 
D20038050 
DIACD503 
D2078080 
D1LA0D203 
5870D1B84 
DIACS1E0 


5350F010 
OOOAB23E 
47FOFO70 
477 0F050 
47FO0FO30 
47FOFO10 
G7FOFOIC 
09000014 
00000034 
0c9s0c054 
SO0ECDOOC 
927001C0 
92F3D1CS 
92760100 
92CéD1D38 
A0S00700 
DIAONSOCS 
&CoC5S80 
5S8SCD1A8 
DLAGD202 
EB5050F0 
G7FOASDO 
810050E0 
01649203 
BSSO0DLAG 
D1A95870 
ESS0D1LAG 
60094760 
583ID1A4 
701049110 
SOFS70E8 
5370D1A4 
5370D1B4 
434458380 


4 SBSIDIAC 


D1B0D204 
D213701F 
DI808038 
00805830 
5880D1A4 
70104110 
8CF870ES& 
D1A490500 
588CD1A4 
OSEF5830 
S5S80D1A4 
BOE15830 
8011B0A9 
BOEA5680 
80F87010 
Deo0380Fs 
80165870 


ADDRESS 08E808 


9238F CCC 
9200FCA4 
9210F 034 
9220F 064 
9220F 044 
9240F 024 
009BE990 
00000018 
00000038 
00000058 
58B0F010 
926DD1C1 
92F4D1C9 
927CD1D1 
924CD109 
418CD1B4 
5830D1B4 
D1A4D201 
D2030050 
711CD080 
800013818 
41305038 
80805860 
GOFSTOFC 
D2076080 
D1A0D203 
5870D1B4 
A3F65880 
D2078093 
0CO05SFO 
41100000 
50E0709C 
D203S0F8 
D1A4D203 
02008016 
p0s06019 
D0S05880 
5S7CD1AC 
D1B0D202 
02078098 
000058F0 
41100000 
808050BA 
D203808C 
D1A40207 
5S7OD1AG 
D1A45870 
4760A7D2 
D1A4D207 
41100000 
70E84110 
D1AG50E0 


47FCFOBO 
&7FOF088 
47FOF068 
4 7FOF048 
G7FOFO2S 
47FOFO08 
00005820 
o000000I1C 
oco000sc 


O7FE0000 


5800FO00C 
927201C2 
ScFSDICA 
921S5D1D2 
92C1D1DA 
50S50D080 
D203D1A4 
8100807A 
69005370 
9867B720 
5SF 05053 
58763050 
D1A4D200 
41100000 
BOEA53E0 
80F87010 
DeOs8ors 
DIAC4SED 
BOEC5S330 
BOGOOSEF 
53F0B060 
5380D1A4 
7OF 84110 
D1B03060 
D1DC5630 
5870D1AC 
DIBOD202 
D202703D 
DOSO803E 
BOE25880 
BOOOOSEF 
58FCB060 
Q790A39E 
BOB55830 
BOSCSOEA 
D20380F8 
D164D203 
5880D1AC 
809SB0E2 
58F0B060 
OO0058F0 
709C5880 


CODE= 


TO 090077 


OOOSFE2S 
9204F09C 
9214FO7C 
92e4FO5C 
9234FO35C 
O5F09024% 
310407Fe 
00000000 
00000040 
G7FOFO14S 
5SFO0B920 
926CD1C3 

cF6D1C8 


92150103 ¢e 


9261D10B 
96600050 
804C5350 
S33CD1AC 
DIA4DL93 
5AGOD1A4 
OSEF 4180 
L8E 7O58F 
80592102 
55r C5060 
01440207 
41100000 
70E55110 
6008590 
DIAGD207 
5S8COLAS 
OS5SEF53380 
D20CS050 
OOSO5SFO 
535 9D1AC 
D1B0D204 
D2047017 
D0308035 
DO0S05550 
5870D1AC 
D1A4D0207 
5S80D144 
OSEF53850 
5860D1A4 
D1A4%5670 
5880D1A4 
70104110 
80F870E8 
48E08008 
5860D1A44 
O5EF 5630 
BOéO005EF 
DIA4D200 


a 


a 


ASRA 


OOOSE&653 
47FOFOSO 
G7F0F060 
GTFOFCSO 
G7FOFOLO 
D01C5830 
00800000 
00000024 
00000044 
O06E201D7 
O5EFO5A0 
926ED1CG 
92F7D1ICC 
FODI04 
92F1D1C0C 
41100080 
D1LAGDLOS 
re 
7119008 
90670030 
A9C05370 
G7FOA0CO 
5880D1A4 
OSEF5830 
BOSS839E2 
55r03060 
OOCOSS&FO 
BO 7447A9 
8090B005 
D2008C89 
D1A95D207 
BOcc5380 
BI6005EF 
D293D1AC 
D0808014 
005053380 
5870D1AC 
DiBoD202 
02027049 
€090B0BB 
20038080 
DIA4SD21F 
02008081 
D1B40203 
D20780S3 
000058F0 
41100000 
5SECB074 
D20780950 
D2A440200 
5880D1A4 
8080B0A8 


TASK=PARX 


00000064 
9COSF094 
9218F074 
9225F 054 
9O3EFOS4 
FO016558+0 
00ag0GooS 
00000028 
CC006043 
C7D4E7450 
G1S001E8 
9°2SE91C5 
92F801CD 

264G51D5 
92FED100 
53FOECSC 
DIASSO0S3 
800CE870 
9 S&3S0D1A3 
GIFODC3O 
Di64.45116 
SSF OB054 
D20338084 
DIAC9503 
5388cD1LAG 
OSEF5850 
BCOOoscF 
ALEA5239 
S889D1A4 
BOE15850 
808460cD 
DIAGDCOD 
5SSODLAS 
80205880 
5S7ODLAC 
01800c13 
D2027037 
00603038 
DO805s8S0 
588001 A4 
EOE153830 
DO0S03080 
BGOCBS53860 
80FS70ES8 
BOE25830 
BOSOOSEF 
58F 08580 
G7AO0A4G6C 
BO0D55830 
80S0S50E1 
D20739084 
5880D1A4 


DATE=76.147 


LENGTH 002570 


58rF0993 
47FOFO78 
G7TFOFO5S 
G7FCFO38 
G47FOFO18 
304CD200 
000060CC 
0000GCCC 
C0000046C 
o0co00cos 
500CCcS90 
92FICICS 
92FSDICE 
92500105 
D2QTOICE 
O5EF 5°50 
SS8Sd1AS 
DIAGBO13 
02020030 
41SCDc0838 
79594120 
O5er£580 
BOFESESO 
SO1IBOFe 
0C0750590 
DLAGD200 
58590 14C 
DL1A%D207 
537001A0 
91445870 
5589001 AC 
89SCS90CB 
05008058 
DIAGD2: 
204700F 
DOSIBO1E 
D0305839 
5S70D1AC 
D1A4D207 
5870D140 
D1A453570 
De1lF6&100 
DIASD200 


41109000 | 


D1ASD207 
53880D1A4 
O5EF5830 
58809144 
D1A45570 
SESOD1LAG 
BOCD5880 
D200809C 


200 


TIME=10.33.363 PAGE 007 


i re ee 
--0..00.* 
--0..00.% 
..0..00.% 


~--0..00...... 
-0..00...0..00. 
0 ..0..00...0..00. 
-0..00...0..00...0..00 
-0..00...0..00...0..00...90..00.% 
0..00.. 0..00..0...... O.. ..K.* 
2O..00.. Za cecnees Ceecsees eeees 


-¢ 


eee @€¢ @ @ oe @ © @ 6 * @ 6 


een o0 @@# ¢@ @ @ @ 6 8 @ 


walls 40240 Oew ee 
~ os .J.s JA. JB. SC. JD. SE. LF 
JG.3JH .4J5I.5J..65..75..85..95.% 
Joost... Sd. JK. SL.OUM. JN. . JO% 
-JP.HIQ. .IJR.AJ.. J. Ld. 8d KL 
eee ee te ee See re (Oieswes * 
KJ. K. Jes Hed he Sic sees Joe desea J. 


he 


Sa 


Eee SR Se Ee eee 


*.6..J. 
eas tie 
RNs oo one ¢a CO SS 


Me teed Kiaks Ose shes Ne edeas 


ee re See re ere ee 
EN Reso «Sed Ke ent o end oKhewwies es J. 
Rha tsee ee dehecewe as JK cicele ws JK. 
Kina Ce eds Kasds Sea i hes an eiodsaeds 
selddiyoth AC ovaries ier 
RIK cOel sxe Ore cawedehw sce shes 
Meant cNiasavewke-cade Kaw see os J.K 
Merce ee DeKe cere cede JK. .8.¥.... 
*.0....4. J Ricca s ced Kees cSe edi. 
Worse edec ed Ki Bowe eae Devces J 
cee eOe eee, 
Teter Ce eee J. 
MK eae ooJK....5..5.K....N..J5.. 
WILK. Bo. eee DO eieiiG aed Sw a a.5 ae ae 
ee ey fe Sree eee eee re ar a 
rr oS) Sra ee J Ke. 


KKK KKK KKK KK KK KKK 


d 


C: 


08E808 
O8E2S28 
OSES43S 
CEEESE 
CSES5S 
OSESAS 
O€E3CS 
OSESES3 
082998 
OSE923 
05E948 
05E968 
OSES38 
OSE9AS 
CSESCB 
O8c9E3 
OSEACS 
OSEALS 
OSfEA48 
OSEAGS 
O8EASS 
OSEAAS 
C8EACSE 
XSEAC8 
OSEBCS 
OGE5c3 
OSEBSS8 
035088 
OSEBSS 
OSEBAS 
O8EBCS8 
CSEZES 
OSECOS 
OSEC2S 
O8EC4S 
QOSECS6S 
OSECS3 
OSECAS 
OSECCS 
OSECES 
OSEDOS 
OSED28 
O&EDSS 
OSED68 
OSED8S 
OSEDAS 
Q&EDCS 
OSEDES 
OSEEOS8 
OSEE28 
O8EESS 
OSEE68 


SLL'A 


1l 
CONDENSED LISTING 
534 MOVE 000358 535 MOVE 0003C6 536 MOVE 000300 
537 MOVE 0003DA 538 MOVE 0003E4 539 HOVE OOO3EE 
540 MOVE 0003F8 541 MOVE QOO3FE 545 MOVE = =— 69040C 
546 MOVE _ 000412 547 MOVE 000418 «548 CALL OS OME 
549 IF 000448 © 549 «GO 000458 “$50 IF ” 30045E 
550 60 00046E 551 IF 000474 551 G5: 4 990484 
558 MOVE 00048A 559 MOVE 000494 560 HOVE 00049E 
561 MOVE O00GAE 562 MOVE 00048C 563 CALL OGO“CA 
566 HOVE 000%E6 567 MOVE OO0SFO 568 CALL O004FA 
575 MOVE 000516 576 MOVE 000520 577 NOVE O0052A 
578 Move 00053A 579 NOVE 006548 580 CALL 600556 
583 MOVE 000572 584 MOVE 00057C 585 CALL 000536 
587 IF 00052 537 GO 006584 592 MOVE 0005aA 
593 HOVE QOO5CE 594 MOVE 000504 595 MOVE OCOS5DA 
596 CALL 0005E4 597 sIF 000612 597 GO 000620 
598 NOVE 000626 599 MOVE 000534 600 MOVE 60Cb42 
601 MOVE 00064C 602 MOVE 000552 603 {OVE 000658 
604 MOVE 00055E 605 HOVE 000664 605 HOVE 00046A 
613 MOVE 000670 614 MOVE - 00067A 615° MOVE 650684 
616 MOVE 00055E 617 NOVE 00049C 618 CALL ON0SAA 
621 MOVE 00cEcé 622 ~ HOVE 000600 623 CALL 000GDA 
630 MOVE 0006F6 631 MOVE 000700 632 NOVE OcO70A 
633 HOVE OO071A 634 MOVE 000728 635 CALL 000736 
638 MOVE 009752 639 MOVE 00075C 640 CALL 000766 
644 IF 000782 644 GO 000750 645 MOVE 000796 
648 MOVE 0007A0 649 HOVE 000746 650 {OVE 0007AC 
651 CALL 000736 658 MOVE oco7D2 | 659 MOVE —00070C 
660 HOVE 00076 661 MOVE 0007F6 662 NOVE 000804 
663 CALL 000812 666 MOVE 00032E 667 {OVE 000838 
668 CALL 000842 670 IF 00035E 670 GO 000370 


GLL'A 


Cc 


SJPGMX: PROCEDURE OPTIONS( MAIN, REENTRANT 95 


TABLE OF OFFSETS AND STATEMENT NUMEERS 


OFFSET CHEX) 
STATEMENT NO 


OFFSCT (HEX) 
STATEMENT NO 


OFFSET (HEX) 
STATEMENT HO 


OFFSET (HEX) 
STATEMENT NO 


CFFSET (HEX) 
STATEMENT NO 


CFFSET (HEX) 
STATEMENT NO 


CrFFSET (HEX) 
STATEMENT HO 


OFFSET (HEX) 
STATEMENT NO 


CFFSET (HEX) 
STATEMENT NO 


OFFSET (HEX) 
STATEMENT NO 


0000 
1 


OlF2 
73 


026C 
94 


0306 
115 


04B2 
136 


0578 
157 


0692 
178 


079C 
199 


O8SA 
220 


0976 
241 


00BS OOCE O00DS O0E2 


3 


5 


7 


0214 
76 


O2DE 
97 


O3F8 
118 


04C2 
139 


05A0 
160 


06B4 
181 


0704 
202 


O8AC 
223 


31 


WITHIN PROCEDURE 


OOEC 
35 


02eC 
78 


OcF2 
99 


0412 
120 


04D6 
141 


05C8 
162 


06éC8 
183 


O7EE 
204 


o&CoO 
225 


OOF6 0100 0114 
58 59 60 


023A 
81 


d2eCc 
79 


O23A 
60 


0300 
101 


O30A 
162 


O2F6 
100 


042A 
123 


0416 
121 


0420 
122 


O4E0 
142 


OGEE 
143 


04F8 
144 


0604 
165 


O5DC 
163 


O5FO 
164 


O6EA 
186 


06D2 
184 


06DC 
185 


0810 
207 


O7F8 
205 


0802 
206 


O8E8 
228 


O8CE 
226 


08D8 
227 


SJPGMX . 


0128 O013C O18E 
61 62 63 


024A O24A 0254 
82 83 &4 


0314 03253 O335C 
103 10% 4105 


fe areaiiarm aie ee 


Pa 


(0434 0442 Q44C 


124 «125 426 
0510 OS1A 
146 147 


0502 
145 


0618 
166 


0622 062C 
167 168 


O6F4 
187 


O6FE 070C 
183 189 


OB1A 
208 


0824 0828 
209 210 


O&F2 
229 


O8FC 0906 
230 231 


00062910 


OLAE 


O1BC 


01D% 
69 


01D4 
70 


PAGE 


O1DE 
71 


O2A2 
92 


O3BE 
113 


04A4 
134 


O56A 
155 


0684 
176 


C778 
197 


0880 
218 


O95E 
239 


“ 
a 


MOAHO 
AQdA4S 
LAD 
Ld 


=3dAL GLHIG 


SOUOVIN 


Viva LNJISNVYL 


V.12.4 


SCL A 


PUT PROCESSING 


RECORD CAN BE WRITTEN FROM ANYWHERE IN MAIN STORAGE 
TRANSACTION STORAGE 
PROGRAM STORAGE 
TERMINAL STORAGE 
TWA 
AREA NOT RELEASED BY TRANSIENT DATA PROGRAM 
DFHTDOA AVAILABLE 


USER MUST KNOW DATA FORMAT AND BUILD PROPER LLbb FIELD 


OCL'A 


DATA FORMAT — PUT 


EXTRAPARTITION 
FIXED Sa apiitdiesioiscicaprmeespstenslinsiionmisisirweshathosnaapoeigstiensoeetl 
T | ; 
VARIABLE LL bb 
INTRAPARTITION | 


VARIABLE LL bb 


TCATDAA 


LCL A 


TOOABAR 


TDOA Transient Data Output Area (DFHTDOA) 


X°8D’ HALFWORD wORD 
TDOASAL TOOASCA 


TOOABAR — TDOA Base Address Register 
TOOADBA — TDOA Data Begin Address 
TDOASAL — TDOA Storage Accounting — area Length 


ae DATA 
HALFWORD | HALFWORD 


TOOAVRL TDOADBA 


TDOASCA — TDOA Storage Chain Address 
TDOAVRL — TDOA Variable Record Length (LLbb)** 


GCL A 


TYPE=PUT 
ASSEMBLER VARIABLE LENGTH RECORD 


COPY DFHCSADS 
COPY DFHTCADS 


RECLL DS CL2 
DS CL2 

RECORD _—CODSS CL24 
MVC RECLL.=H'28’ ~ REC LN 
MVC RECORD, YOURDATA DATA 


DFHTD TYPE=PUT,DESTID=XXXX,TDADDR=RECLL,NORESP= GOODPUT 
(PROCESS ERRORS HERE) 


GOODPUT EQU . 


PG CL A 


= Pei ; ge Pi tes 
oe 38 % ° a 
{ . ' eat a4 Ta ‘ 
. 


COBOL ~TYPE=PUT 
VARIABLE LENGTH RECORD 


LINKAGE SECTION. 

01 DFHBLLDS COPY DFHBLLDS. 
02——— 

01 DFHCSADS COPY DFHCSADS. 

01 DFHTCADS COPY DFHTCADS. 


O02 RECLL PIC $9(4) COMP. 
02 FILLER PIC XX. 
02 RECORD PIC X(24). 


01 ——— 

PROCEDURE DIVISION. 
MOVE YOURDATA TO RECORD. | 
MOVE 28 TO RECLL. 

DFHTD TYPE=PUT,DESTID=XXXX,TDADDR=RECLL,NORESP=GOODPUT 
(PROCESS ERRORS HERE) 


GOODPUT. 


I SE 


q6cL A 


TYPE=PUT 
PL/I | VARIABLE LENGTH RECORD 


%INCLUDE (DFHCSADS); 
%INCLUDE (DFHTCADS); 
2 RECLL FIXED BINARY (15), — 
2 RECBB CHAR (2), 
2 RECORD CHAR (24); 
RECLL=28; 
RECORD=YOURDATA; | 
DFHTD TYPE=PUT,DESTID=XXXX,TDADDR=RECLL,NORESP=GOODPUT 
(ERROR PROCESSING HERE) 


GOODPUT: 


ee 


OL'CL A 


ASSEMBLER 


RECORD 


MVC 
MVC 
DFHTD 
CLI 

BE 


TYPE=PUT 
FIXED LENGTH RECORD 


DFHCSADS 
DFHTCADS 

CL24 

RECORD, YOURDATA DATA | 
TCATDDI,=C’XXXX' | ID 
TCATDAA,=AWARECDRD) DATA ADDR 
TYPE=PUT 

TCATDTR,O ~ GOOD RESP ? 
GOODPUT YES 


(PROCESS ERRORS HERE) 


GOODPUT 


EQU 


% 


POL’CL'A 


i 
in oe ‘oe iia 8 “ 
t lis i 
) ; ® J 
7 = bearer sd : an 
’ 
a 


TYPE=PUT 
COBOL | FIXED LENGTH RECORD 


LINKAGE SECTION. 


01 DFHBLLDS COPY DFHBLLDS. 
02 —-—— 
01 DFHCSADS COPY DFHCSADS. 
01 DFHTCADS COPY DFHTCADS. 
02 RECORD PIC X(24). 
01 —-—— 
PROCEDURE DIVISION. 
MOVE YOURDATA TO RECORD. 
MOVE ’XXXX' TO TCATDDI. 
DFHTD TYPE=PUT,TDADDR=RECORD 
IF TCATDRC EQ 0 THEN GOTO GOODPUT. 
(PROCESS ERRORS HERE) 


a ee 


GOODPUT, 


= 


GOL’CL'A 


TYPE=PUT 
PL/I FIXED LENGTH RECORD 


%INCLUDE (DFHCSADS); 
%INCLUDE (DFHTCADS); 

2 RECORD CHAR (24); 
RECORD=YOURDATA; 
TCATDAA=ADDR(RECHEY 5 
TCATDDI="XXXX’; 

DFHTD TYPE=PUT 
IF TCATDTR = 0 THEN GO TO GOODPUT; 
(PROCESS ERRORS HERE) 


GOODPUT: 


VOQCLHAGC 


Lo THYAVOGOL 


(UWA) 
dO 


vaqvodl 


(G3XI4) 


(=4GGQVGL) OL LNIOd LSNW VVGLVOL 


VOGLHAG ONISN 


LNd=4adAL 


P . i | 
‘Ss : 


~ V.12.11 


PLLCLA 


ASSEMBLER 


TDOABAR 


RECORD 


GOODPUT 


EQU 
COPY 
DS 


OR 


TYPE=PUT 
USING DFHTDOA 


X 
DFHTDOA 
CL24 


TYPE=GETMAIN,CLASS=TRANSDATA,NUMBYTE=24 
TDOABAR,TCASCSA 

RECORD,YOURDATA 

TDOAVRL,H’‘28’ (VAR LN REC) 
TYPE=PUT,DESTID=XXXX,NORESP=GOODPUT, 
TDADDR=TDOAVRL (VAR LN REC} 


TDADDR=TDOADBA (FIXED LN REC) 


(PROCESS ERRORS HERE) 


CL CLA 


GET PROCESSING 


INPUT AREA SUPPLIED BY TRANSIENT DATA PROGRAM 


ADDRESS FOUND AT TCATDAA AFTER GET 


Hebe 


“ 6 


INTRAPARTITION — ADDR OF DFHTDIA PREFIX RETURNED 


EXTRAPARTITION — ADDR OF RECORD RETURNED 


CLCL A 


DATA FORMAT — GET 


EXTRAPARTITION 


FIXED | | 


VARIABLE LL bb 
INTRAPARTITION T 
DFHTDIA 


VARIABLE | FLL bb | 


TCATDAA 


VICLA 


TOIABAR 
TDIA Transient Data Input Area (DFHTDIA) 
ee DATA 
X‘8D‘ HALFWORD WORD HALFWORD | HALFWORD 
eee 
TDIASAL TDIASCA TOIAIRL TDIADBA 


TDOIASAL — TDIA Storage Accounting — area Length 


TDIABAR — TDIA Base Address Register 
TDIASCA — TDIA Storage Chain Address 


TDIADBA — TDIA Data Begin Address 
TDIAIRL = — TDIA Intrapartition Record Length (i. Lbb)* * 


TRANSIENT DATA 
CSA 


CSACDTA 


CSACBAR (REG. 13) CSAWABA 


TCA 


TCACBAR (REG. 12) 


TDOA 


= ot 
TDOABAR 


TDIA 


TDIABAR 


TWACOBA 


TWA 


V.12.16 


LCL A 


ASSEMBLER 


TDIABAR EQU 
COPY 
RECORD EQU 


DFHTD TYPE=GET,DESTID=XXXX,NORESP=GOODGET QUEZERO=EMPTY 


> \ 
; . ee) 


DFHCSADS 
DFHTCADS 


X | 
DFHTDIA 


(PROCESS ERRORS HERE) 


GOODGET EQU 


EMPTY EQU 


% 


TDIABAR,TCATDAA 


% 


TYPE=GET 
INTRAPARTITION 


PLL CLA 


ate Tad ae a 
F fé . : \ 
: , 
‘ a ‘ id : 
mn m * 
* 4 . 
a ‘ os 


| | TYPE=GET 
COBOL INTRAPARTITION 


LINKAGE SECTION. 
01 DFHBLLDS COPY DFHBLLDS. 

02 —-—-— : 

02 TDIABAR PIC $9(8) COMP. 
01 DFHCSADS COPY DFHCSADS. 
01 DFHTCADS COPY DFHTCADS. 
01 DFHTDIA COPY DFHTDIA. 

02 RECORD. 

03 —-—— 
PROCEDURE DIVISION. 

DFHTD TYPE=GET,DESTID=XXXX,NORESP=GOODGET,QUEZERO=EMPTY 

(PROCESS ERRORS HERE) 
GOODGET. 

MOVE TCATDAA TO TDIABAR, 
EMPTY. 


QLLCL A 


PL/I TYPE=GET 
INTRAPARTITION 


%INCLUDE (DFHCSADS): 
%INCLUDE (DFHTCADS): 
%INCLUDE (DFHTDIA): 
2 REC. 
2 
DFHTD TYPE=GET,DESTID=XXXX,NORESP=GOODGET,QUEZERO=EMPTY 
(PROCESS ERRORS HERE) 
GOODGET: 
TDIABAR=TCATDAA: 


EMPTY: 


SL CLA 


TYPE=GET 
nena EXTRAPARTITION 
COPY DFHCSADS 
COPY DFHTCADS 
REC DSECT 
USING *,3 | 
= DS CL2 VAR. LN. RECS. ONLY 
DS CL2 
RECORD EQU . 
DFHTD TYPE=GET,DESTID=XXXX,NORESP=GOODGET QUEZERO=EMPTY 
(PROCESS ERRORS HERE) | 
GOODGET EQU 


L 3, TCATDAA | DATA ADDR 


EMPTY EFEQU £ ~* 


PSLCL A 


TYPE=GET 
COBOL EXTRAPARTITION 


LINKAGE SECTION. 
01 DFHBLLDS COPY DFHBLLDS. 
02 —-——. | 
02 RECBAR PIC S9(8) COMP. 
01 DFHCSADS COPY DFHCSADS. 
01 DFHTCADS COPY DFHTCADS. 


01 REC. 


ts RECLL PIC S$9(4) sacaiale VAR. LN. RECS. ONLY 
02 FILLER PIC X(2). | 


O02 RECORD. 
03 —-—— 
PROCEDURE DIVISION. 
DFHTD TYPE=GET,DESTID=XXXX,NORESP=GOODGET,QUEZERO=EMPTY 
(PROCESS ERRORS HERE) 
GOODGET, 
MOVE TCATDAA TO RECBAR. 


EMPTY 


G8L°cLA 


TYPE=GET 
PL/ EXTRAPARTITION 


%INCLUDE (DFHCSADS); 
%INCLUDE (DFHTCADS); 
DEF REC BASED (RECBAR), 
(3 RECLL PIC FIXED BINARY. me) VAR. LN. RECS. ONLY 
2 ZEROS PIC CHAR (2), | | 
2 RECORD, 
So: =. 
DFHTD TYPE=GET,DESTID=XXXX,NORESP=GOODGET,QUEZERO=EMPTY 
(PROCESS ERRORS HERE) 
GOODGET: 
RECBAR=TCATDAA; 


EMPTY: 


6L°CL'A 


FEOV PROCESSING 


USED WITH EXTRAPARTITION MAGNETIC TAPE DATA SET 
CAUSES A REWIND AND UNLOAD OF TAPE REEL 


NEXT TAPE REEL MUST BE LOADED > 


_ CAUTION: CICS/VS PARTITION WAITS UNTIL NEW 


TAPE REEL IS LOADED 


L‘SL A 


TRACE CONTROL 


DEBUGGING AID FOR APPLICATION DEVELOPMENT 


SELECTIVE RECORDING OF CICS/VS MANAGEMENT REQUESTS 
RECORD OF USER SPECIFIED ENTRIES 
SIZE OF TRACE TABLE SPECIFIED IN SIT (TRT=NN) 


DUMMY TRACE 


CELA 


ye 


am. . 


‘ ~ 
omy ‘ pos ‘ 
a ‘ * 
; * 


16 BYTE ENTRIES 
WRAP AROUND TABLE 


a) 


FIRST ENTRY IS ‘CONTROL’ 


CSATRTBA 
, CURRENT FIRST 
ENTRY ¥ 
10 FIELD B 


CELA 


00 — C7 


C8 — Ed 


E6 — EF 


FO — FD 


FE 


FF 


230 


240 


\ 
‘oa 
\ 

Pee 


255 


199 


229 


239 


253 


wm, ; * 
F a * j ’ 


TRACE IDENTIFICATION 


USER ENTRIES 

SYSTEM ENTRIES 

FE ENTRIES 

TRACE CONTROL ENTRIES (CICS/VS) 


TRACE ON 


TRACE OFF 


ID 


FO 
FI 

C8 

cg 
F2 
F3 - 
F4 
F5 
F6 
F7 
F8 
F9 
FA 

CF 
FB 
FD 
FE 
FF 


TRACE TABLE 


MODULE 


KC 
oC 
AFTER GETMAIN 


AFTER FREEMAIN> 


TS 


—DLI 
JC 


BMS 

AFTER MAPPING 
BUILT-IN FUNCTIONS 
DUPLICATE 
TRACE ON 
TRACE OFF 


ENTRIES 


FLD A/B (COMMON) 


# BYTES (A) 

ADR STORAGE 
ADR STORAGE 
PGM ID OR ABCODE 

TRANSID 

ABCODE 

DATA SET ID 

DESTINATION ID_ 

DATA ID 

CALL TYPE/PCB ADR 

TYPE REQJCA ADR 

TYPE REQ 
RESPONSE 

VARIES BY TYPE 

NO OF ENTRIES 

TRACE BITS 

TRACE BITS 


V.13.4 


GELA 


F2651D80 0200007¢ 


F16561E5 B500E3C3 
C8653946 000083C3 
F065279A 4000007¢ 


FD000000 00000000 


D7C7D4D7 


000003c2 


005E6C20 


80000000 


00000000 


£8404040 
00655AD0 
85900308 
00652F40 


0000001C _ 


ett 


LVL A 


TRANSACTION DEBUGGING 


CONTROL BLOCK OVERVIEW 


TCA — INCLUDING REGISTER 
SAVING CONVENTIONS 

TCTTE 

CSA 


COMMON APPLICATION PROGRAMMING ERRORS 
BASIC TRANSACTION DEBUGGING 
TRACE ANALYSIS 


TCA (USER AREA) 


TASK CTL 
K REG STORAGE 
(R14—R11) 


TCASCSA 


STORAGE CTL 
REG STORAGE 
(R14—R5) 


5C 


60 


80 COMMON CONTROL 
COMMUNICATION 
AREA 
AO COMMON CONTROL 
REG STORAGE 


(R14—R11) 


AND DC 


a7 


USED BY KC. PC, FC, TD, TS, IC 


BMS, DL/I, BIF, SYNC PT 


BEGINNING OF TWA 


V.14.2 


SVL A 


TCA COMMON CONTROL COMMUNICATION AREA 


TRANS | FCA 
iD ADDR 


REQUEST ID 


SYS RECOVERY 
PSW 


| 
MAP NAME 


PROGRAM !D 


pG | OFL ItALT F : CUR 
NO|CTL| ID AREA|B| | Pos 


RETURN/ 


BM | REQUEST 
= TYP | NUM] STORAGE 
REQIBYT | ADDR 
ss iinee ta INDIRECT ACCESS SEGMENT RECORD 
IDENTI- FICATION | SET ID ID ADR 
A LANG _ 
i ere hese LANG DL/I 
LIST LIST } Eca | FUNC 
TD 
Ze TEMPORARY 
DATA !D 
BIF | REDEFINED DEPENDING 7 UPON SERVICE REQUESTED 


VPLA 


TCA (SYSTEM AREA) 


TRANSACTION STORAGE CHAIN 
PACKED DECIMAL ID IN TRACE ENTRIES 
PCT | 


é 4 
a Poe m&® ya Fy te 
” 7 > o : é a t » we i i 
7 b oe. an age eo i Pop gp OR i 
, Sy 3 on ee eee ae So Sete tes ae 
TCAPCSA RSA ee ia eg tae 
Bak oe HCD ig 4 te teas . a s , 
é : 


TCAPCHS HLL SAVE AREA 
TCAPCPA TGT/DSA fee Pa 


VM 


e Re 
‘ “ ~, 
i 2 


L 


VauV YASN/N 


» | > 


_ WHY WALSAS 


VOL 


V.14.5 


ASSEMBLER 
TCA (USER AREA) 
20 REG 14 TASK CONTROL 
60 REG 14 - STORAGE CONTROL 
nel OTHER 
AO REG 14 APPLICATION 
(CICS MACRO) 
@ 
@ 
BALR 14.14 
‘ec 


V.14.6 


LYL A 


APPLICATION 
PROGRAM 


(CICS MACRO) 


BALR 14,14 


INTERRUPT 
(ASRA) 


ASSEMBLER 


MANAGEMENT 
MODULE 


STM 14,11,TCA+AO 


LM 14,11,TCA+tAO 
BR14 


COBOL — PL/! 


TCA (SYSTEM AREA) 


3C TCAPCHS 


STANDARD 
RSA REG 14 


O 
Y) 
> 
S 
G) 
| 


APPLICATION 
PROGRAM 


(CICS MACRO) 
® 


@ 
CALL TO HLL 


MODULE 
(BALR 14,15) 
‘OSEF’ 


V.14.8 


GCVLA 


oo 
ae y ‘@ 


COBOL/PL/| 
APPLICATION 
PROGRAM 
HLL 


(CICS MACRO) INTERFACE 


BALR 14,15 — | 


6 
STM 14,11,TGT/DSA+C 
- 
(ALTERS REGS) 


nd! 


@ 
BALR 14,15 
® 
. 
LM 14,11,TGT/DSA+C 

BR .14 


INTERRUPT 
(ASRA) 


MANAGEMENT 
MODULE 


® 
STM 14,11,TCA+AO 


LM 14,11,TCA+AO 


OBR 14 


CICS COBOL AREA 


POINTED TO 
BY TCAPCCA 


A(BLLCBAR) 


A(CSACBAR) - 
A(CSAOPBAR) 
A(TCACBAR) — 


4 


MAPPED IN COBOL LISTING (PMAP) 


HALFWORD DISPLACE- 
MENT TO BLL CELLS 
STORED IN PPTE 


V.14.11 


+34 
+38 
+3C 
+40 


3 ‘ 
re 


MODULE ACCOUNTING 


TCA (sys) 


PPTE ADR 
RSA ADR 
HLL SAVE 


HLL AREA 


(LINK) 


— >RSA 


REGS 
(14 - 11) 


V.14.12 


CL'PL A 


TCTTE - 


~ TcTTeT! TERMINAL ID 


8 TCTTESC TIOA STORAGE CHAIN 
C TCTTEDA | eACTIVE TIOA — 


10 TCTTECA _ TCA ADDRESS | 


(OPTIONAL) 
USER 
AREA 


anne 


CSA 
CONTROL BLOCK RELATIONSHIP — STORAGE CHAINING 


CRI3_. CSA RZ: 
hee a 


TCA 


REG SAVE 
| (4) TCASCCA SYSTEM 
“+4C CSACDTA {~~ 
TCAFCAAA 
ss i 
— £20 KC REGS 
rere — 
+0 TERM ID +60 SC REGS 
ce +o | __COMMON REGS 
j } 
‘© +c ‘| CURRENT TIOA 
+10 TCA PTR 
as SIZE 
as a, 
TIOA COBOL AREA 
rela] 
di eens mo wa 
USER 
TDIA 
TIOA 
Ei etc] | size | 
eameeseee ca +4 


V.14.14 


GL’VL A 


COMMON ERRORS 


FILE CONTROL 


WHEN TO USE - FIOA/FWA/VSWA ? 


FILE CONTROL TABLE 
USER RESPONSIBILITIES 
TRANSIENT DATA 
EXTRAPARTITION | 
~INTRAPARTITION 
ADDRESSING 


BMS 


PPT ENTRIES — eee") 6 


MAP DEFINITIONS 

STORAGE CONTROL 
FREEMAIN 
GETMAIN 


STORAGE RECOVERY 


COLA 


KC 
FC 
BMS 
BMS 


FC 


FC 
BMS 
KC 


PC 


“o™ 


: 


A CONVERSATIONAL TECHNIQUE 


ENQ 


GET 


DEQ 


RETURN 


ON RECORD ID 

FOR INQUIRY (MOVE MODE) 
DISPLAY 

READ CHANGES 


FOR UPDATE 
(MAY STILL BE IN BUFFER) 


ALTERED RECORD 
NORMAL RESPONSE 
FREE RECORD ID 


TERMINATE 


GOLA 


ADDITIONAL CICS/VS FACILITIES 


ADVANCED PROGRAMMING 
MORE BMS 

MORE DATA BASE CAPABILITIES 
MULTI-TASK HANDLING 

TEMP STORAGE 

TRACE CONTROL 


DUMP CONTROL ~ 


Arte encase Mn Ee 
( %) » 

e 

6 


PRANSACTIGN DEBUGGING EXESCISE 


TR AAD oA EO 


The CICS/VS formatted dump includes a dump header on 
the first page which indicates the 4-character dump 
code (if any), the identification of the task being 
abnormally terminated, the program registers, and, 
under certain conditions, the program PSW at entry to 


the ABEND. . | an ae 


a Vag f 


Ve: What fe the dump code? ee ee eee ee ee ne ae ene ae 


2. What does this dump. code indicate?, (Look in the. 'Messages 


and Codes! manual)’. Bees | oS, a 


- - 
aad 


Notice that each block of storage has its own heading 


indicating the type of storage, the inclusive storages 
addresses and the storage length. -The addresses on 
the right are the actual addresses. This differs from. 
an operating system dump where actual addresses appear 
on the left. The addresses on the left are relative 
addresses and indicate the relative displacement from 
the beginning of each block. These relative 
displacements can be used in conjunction with the PLE 
(Program Logic hee when trying to locate specific 
fields. | : : 


TCA_USER APEA 
3. ‘Does this task have a ‘terminal associated with it? (TCAPCBAA) 
Sea ee ae eee LS ane ee ee, eee 
U 


4. What is the addréss of the TCTTE obtained from the TCA? 
(TCAFCAAA) 5g dF Se oe 


jer 


registers are stored there? es 


~ RAF 1) os 


5. Locate “ne Task Control register storade area. What 


aa 


, 5 


6. what ‘registers are stored an, chs, Storage Control 
register save area? Kl She KO 


7. j%What registers are stored in the Sonne. control register 
- gave area? ASY-Ki/, | 


TGS a eRe 


“ ae ; 
* . e. 


a] 
x. 


; . = \ ny icy 
oo _ we . cue 5 
8. How long is the THA? 1 


e-em 6 ee ee a a a a eh ae ee ee 


9. What is the storaqg a at identifier for the “CA? 


2a Oe. What. is. ihe sqatens Bo ted to by the transaction 
8 etorade chajn add LESS? Aten) Tre ee 
11. How many a reas are on this chain? Use the storage 
| accounting prefix chain address field to locate 
the hext storage area. Notice the duplicate 
+ storage accounting fields for transaction storage. 
a6 TIOA'S, - : | ai 


12. What does the s storage chaae address of the last @ 


saree pole to? ff £ ¢ a ee 
Css ie 
143. Why aren't. the CSA, Trace Table, Terminal Control. 
Table, TIOA'S and Program Storage on this chain? 
e Le ’ ae : woe A y B22" c Zs ve c eS oe eae ar oir yy 
74, What. is oGe- ‘tp Q he, task that was eee 
. > (PCAKCTTA).” iis see _ 
: TCTTE’ AND TIOR jt 2 Fe as ; ae re 
15. What is the ID of the terminal being used by this 
task? (TCTTETI aoe | 
. ae tae er a | 
16. How many TIOA'S are ees by this task? 


AT — storage class identifier for a TIOA? 
& ty ct , : oo ; 


Me sg 
: oe 


len spn am 


: Ca ne —— 


23. What hh field TCTTECIA point ‘to 


18. What is the first TIOA in the chain? (TCTTESC) 


VK 


L7E 
ET AIT SEIT OTM Planes ci Meg —— EAN CMTS AG CLEATS ciel Meats Se RS AD oD IE apy CSAS eA Ab 2 a enna ah 


19. Follow the TIOA chain by uSing the Storage 
- accounting prefix chain address... What, does the _ 
last TIOA chain address point to?_ fag OE. cT le 


pn Abe cns NOR OR COR, 


20: MNES is the current TIOA? (TCTTEDA) 


i ath oe st oe 
“satis 7 eee 4 
« aati . 
PID LIAL ELA SD AEE AID ON dear 


21. nee. Caer 158 field TCTTECA point to? "Bee — 


ss : tt ‘ 
: i ree J : ‘ Sg ot De 
oo “= + te Node = 8 ae : Oo tees 'S thes “2. 
— on 


» 


oe why are none no Length codes in field TIOATDL in 


the TIOA'S Ss in this aump 


Semana 


Cettvem snsmerctcnmagectba see tine nasa aeatine LL TOONS OR SITY A A NEO 


eae ee — How nou: is it? 


SETI AIRED 


24, How many programs are in use by this task? (Hint: 
Each block of program storage is printed a 
Sa ee ia 
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25. Locate field eS nCU TE a! the CSA. What does this 
field point to? . Verify. fe). Shae 
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bs S CICS/VS PROGRAMMING | - LAB EXERCISE 


_ The purpose of this class exercise is to create an application program and 
BMS map for use with CICS/VS. The program is to be built partially each 
day. Certain "dummy" routines inserted at the beginning are to be replaced 
by "real" ones as the class progresses. The full program will not be 
completed until the end of the class. | 


General Information 


1. MVS Job Control cards for assembly, compile, link edit, and execution 
will be supplied: See next page for listing of supplied JCL. 


2. All class transactions will receive a TWA of 100 bytes. 


3. Do not submit reassemblies or recompiles solely for the purpose of 
| obtaining additional listings for team members. | 


4, ° All PCT and PPT entries exist for the student transactions and maps. 
te < : | The naming conventions indicated in this handout must be used to 


insure proper execution of your program. 


By COBOL - Programs must include the SUPPRESS option in the copy 
statements for the CSA, TCA, and TCTTE dummy sections. e.g.: 


01 DFHTCADS: COPY DFHTCADS SUPPRESS. 
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WSXY BADFa 
SHUTDOWN@: 


Ff EXEC DFHESMAP » PROG=WSMAPXY 
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ASM - Assembler teams 


COB ~- COBOL teams 
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A-Assembler teams 


-. x=C-COBOL teams 
P-PL1 teams 


. y=Team number 


nnn=any number between 
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Cc _ Input Message Description } 


The input message has the following format: 


cc 1 | 
WS xy . ffff nnnnn@ } = 4 
Where: | : A * Bae 
x - is the programming language (A for Assembler, C for COBOL, 
| P for PL/I). = : | 
sy v is the team identification (1 thru 9). 
ffff - | is a function code: 
HELP - to display a prompter message 
DISP - to display an inventory record 
UPDT - to update an inventory record 
nnnnn - is an optional field containing the key of a record on the 
inventory file. 
@ - . is an "end-of-message" character used to end the data on a 
card. It is not used for input on the 3270. 
Examples: 
WSA3 HELPG@ 


W§C2 DISP CH037@ 
WSP1 BADF G 


WSA4 UPDT CH021@ 
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Furnished Mapset Description 


Mapset name: LABMAPS 


Map Name Contents 


MSG1. — TRANSACTION. CANCELLED 
-MSG2 : INVALID: FUNCTION 

MSG3__ | INVALID FORMAT 

MSG4 : -* NO. RECORD FOUND 
MSGS UPDATE COMPLETED 

HELP | A "prompter" display containing 


the input message format. | 


| , ; Inventory Dataset Description 


The dataset name is CLASSDS. 
variable-length records. 


It is a VSAM Key-Sequenced dataset with 
The format of the records is as follows: 


Field Location Contents 
1-4 #2 Record length -.LLbb (not a part of the physical 
record, but must be defined in a File Work 

Area). 

5-9 Record Key (New Part Number) - W§001 thru 

| — WSo99. 

10-14 | Old Part Number - Alphameric 

15-34 Description - Alphameric 
35-37 3 | Branch Office - Alpha 

38-40 Quantity On-hand 

41-43 | Quantity On-order 

4U-4G Quantity Shipped 

47-49 Order Point 


: Note - The above four fields are Zoned Decimal. 


50- | | a Variable - not used in this class. 


The last three digits.-of the record key are the key number, right justified 
and padded to the left with zeros. Any team may display any record, but 

to avoid confusion, each team will! only update those key numbers assigned to 
‘it in the Piewing table: 


ASSY COBOL PL/I 
TEAM ID - 1 1-5 41-45 86-99 
2 6-19 46-58 91-95 
3 11-15 51-55 96-99 
i 16-29 56-69 | 
5 21-25 61-65 
6 26-36 66-79 
7 31-35, 71-75 
8 36-49 76-89 
9 81-85 


‘ 


Day One | ae) 


eee 


Create an application program to perform the following functions: 


1. 


if the function code in the input message its equal to HELP, transfer 
control to a supplied i a MSGPGM. This program will 
send a "prompter' display to the terminal and terminate the task. 

if the code is DISP or UPDT, send a message to the terminal 
indicating that the "Display" or” "Update" routine was entered. Then 


terminate the task. 


If the code is other than the above, send an “invalid code" message 


_ + to the terminal, and terminate the task. Also, identify your 


terminal. 


” PROGRAMMING I PROBLEM | | DAY 1 


~ © 


(starr )) 


XCTL 
MSGPGM 


UMSG2 
IN TIOA 


SET UP 
UMSG3 
IN TIOA 


aa. 9 ANN Se +E —_- 6 eS A CREB et 


| RETURN 


RETURN 


UMSG1 - A message indicating that ° 
the routine was entered. 

UMSG2 - Same as above. 

UMSG3 - A message indicating that 
an invalid code was entered. 


Cr. 


Day Two . Part One 
Create a mapset and a dummy section to be used in your application program 


on Day Three. 


The mapset will be cataloged under the name WSMAPxy. It will produce a 


display with the format shown in Figure 1. 


The dummy section will be cataloged into a source library, also under the 


name WSMAPxy, so that it may later be COPYed or SINCLUDEd into your | 
application program. — | | | 

Notes: | | _ 2 

1. The mapset and dummy section will be used for both input and output. 
2. The terminal to be used is a 3270 Model 2. The display size is 24 


lines by 80 columns. 


a ao ; oa. ae 
*“ NEW PART NUMBER ~ +. 0\=39). 


M96 no BSRQt WEY Lads ATeRTwS: .-- ra | 


’ INVENTORY FILE <= TEAM xy 


aw ae 


“OLD PART NUMBER 


“ DESCRIPTION 


a ON HAND © 
Ley 2 ama ote a 
ON ORDER 


£3 MN ace rang A oe eiae 


SHIPPED _ | NNN \ 


ORDER POINT - NNN GO. 


Figure 1. Inventory File Display and Update Screen Layout. 
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Day Two - Part Two 
Modify the program from Day One to perform the following functions: 


1. If the fonction code is HELP, send ie "prompter" display in the 
furnished mapset to the terminal, and terminate the transaction. 
2. If the function code is other than HELP, DISP, or UPDT, send the 
Invalid nnaiien map in the furnished niapect i the (erniiials: and 


terminate the transaction. 


PROGRAMMING I PROBLEM — | DAY 2 


START 


SET UP 
UMSG1 
IN TIOA 


RETURN 


— | | . UMSG1 - A message indicating that 
‘'S | 7 . | the routine was entered. 
VS _ : UMSG2 - Same as above. 


Day Three | i 
Modify the application program to display and update a record on the CLASSDS 
dataset: | 

If the. function code is DISP: 

T.. If the input message is invalid (i.e. less than fifteen bytes long), send | 
the Invalid Format map in the furnished mapset to the terminal, and 
terminate the transaction. 

2. Retrieve the aiiied record from the CLASSDS dataset. 
if the record eannot be found, send the Ne pecsed. Found nap in the 
furnished mapset to the terminal and terminate the transaction. 

‘if any other error occurs, abnormally terminate the transaction with 
abend code 1111.. 

3. Display the pecora on the ferininal, using the map white was created 

on Day Two. 


If the function code is UPDT: 


4, Check the record key in the input message as in step 1. 
5. Retrieve the record in order to update it. Process any errors as in 
step 2. 


6. Display the record on the terminal, as in step 3. 


Read the éperator's response, using the map which was created on Day 
Two. | 

If the operator cancelled the transaction by depressing the CLEAR key, 
then release any resources connected with the file operation, send the | 
Transaction Cancelled map in the hieialine mapset to the terminal, and 
terminate the seangdetion: | 

Alter the file record, dials the information supplied by the operator, and 
write the eer back to the dataset. 

If any error occurs during the write operation, send the Transaction 
Cancelled map in the furnished mapset to the terminal, and abnormally 
terminate the transaction with dump code 2222. 

Send the Update Completed map in the furnished mapset to the erinlnal 


and terminate the transaction. 


PROGRAMMING I PROBLEM | | DAY 3.1 
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START 
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PROGRAMMING I PROBLEM | — “DAY 3.2 


e 
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(UPDATE) | 
CLASSDS 


‘| CLASSDS 


PROGRAMMING I PROBLEM | DAY 3.3 


'S Day Four 
Cc Madlfy the application program to perform the following functions: 
1. Before determining if the function code is HELP, DISP, or UPDT, 


‘Write a statistics record to the Transient Data Extrapart ‘ton 


+ sem: ete yg mtr 


hte en ener ee ae anne Se ent 


Destination named STAT. The format of the record is as follows: 


Positions a Content 
| 1-4 { Record Length - LLbb. 
5-24 / The input message. 
25-28 ; | Terminal !D 
. / 
29-34 vues of-day (from See - a Packed- 


peeiial field | - format HHMMSSS+) . 


é . Ze x ca : 


RECORD DESCRIPTION 


LN DESCRIPTION | rORMAT 
STAT Record aaa = 
4 Record length (LLKEK) | - | Binary 
Ly “Sl ” Character 
20 Input message (from ia el TIOADBA) Alphameric 
Uy Terminal ID aan Alpnameric 
6 Julian Date BYYDDD Zoned~decimal 


:CSAJYDP contains the julian date 
in pacled for m (OOYYDDDC). 
8 Time-of- day MHEMMSST | zoned-decimal 


SATOLP eae ac tne: time 
in packed form (CUM ™SS7C).. 


ee tatty teenee: witty net te nan 
ane ee ae 
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“CLES Proqram Control instead of to PROGA? 


PROGRAM CONTROL EXERCISE ;? 
Deas 
fui . ¥ 
PROGA, PROGB, PROGC are the names of three | 
programs. PROGA is to pass control to PROGB which ees 


” 
cece es A EE 


in such a way that 
control is passed back 


is to pass control to PRCGC 
when PROGC issues a RETURN, 


to PROGA. Code the program control macros for peewe 
each program that will allow the sequence above teat, 2 | 
to occur. jf yt Pes 


When passing control to another progran, 
application programmer must provide the name of | 
the program to which control is to be passed. 
Illustrate the two wavs in which this can be 
accomplished by coding tha necessary instructions 
for PFOGA to pass control to PROGB in gees Verses 
above. : Ses b poe a . i 

Divirc Tweet Se ae ae | Dewees = +a K 


What program control macro could PROGC, in problen 
1, issue that would cause control to return to 


a FY | 
Ree ) ) 
i ot, bos te a) ett de: Pato la ee f fe f2 
re: Vea PR aC a _ . 


After a program terminates and its use count is 
descremented to zero, the storage occupied by that 
program is released to the dynamic storage area. 


f re ee 35 ee oe 
ee ae faethe ie 4 
_ - fo ooF 4 
What is the difference between pre-loading and — os 
hard-coding as a method of passing parameters to Ons 
CICS/VS? When is pre-loading preferred? : 


: / af” a raat ae ‘ 
; f f i Se . G oo 
A + ee tag ‘ f if 3 vi b . of ice nh a ‘ 
Powe 


gr :4 So ert 


The TRANSID option of the Program Control RETURN 
macro "passes control" to another CICS/VS proaqran. 
Briefly explain the difference between this 
"passing control" and "passing ee though 


use of LINK or XCTL. 
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Assume the input transaction consists of a 
%-character transaction ID and a 30-character 
message. Write a complete program that will do 
the following: 


a) If the transaction data length is less than 
24 characters, write the message 'INVALID 
LENGTH! along with the transaction ID to the 
terminal uSing the original TIOA. (Use the 
terminal control macros that will cause the 
TIOA to be released when the write is 
completed.) Abend the transaction with an 
abend code of ABCD. 


b) If the transaction data length is 24 or 
aqreater, issue the program control RETURN 
macro. 


Code one terminal control macro that will write 
to a terminal and read a response without BcaueEe ed 
anew TIOA for the read. Pi aeee a ee ee 


When a WRITE is completed by Terminal Control, 
the TIOA is always released-to the dynamic storage 
pool. 

z / JF: 


CICS/VS allows more than one TIOA to be associated 
with a terminal at a given time. 
T 7 FP 
Define the use of the following fields: 
TIOABAR - (2p 3° Ye 
TCTTEDA - / 
TIOATDL - “%— 
When a Terminal Control READ or WRITE is issued, 
control is immediately given to Terminal Control 


to perform that service. 
T #£Yf F 


Pan 


~—2@0-INSI 
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STORAGE CONTROL EXERCISE 


AI REE UOTE ES PLOTTED: Ar ERLE AEB CRT BASES SPSL OEE: AEDT RLY ESTES 


Code the storage control macro to acquire a new 
TIOA of 100 bytes to be initialized to binary 
zeros. If the storage is not available, go toa 
routine called NOTAVAIL. _ .. OF 


3 ; ; » . ae | b; f : } es 3 t 
IN eke. a Chap a ao ee Cope b fay AS Ai 
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Before issuing a storage control FREEMAIN, the 

programmer must place the address of the storade 
to be released into which field in the TCA?. Why 
doesn't the programmer specify the length of the 


area to be released? in ee CD 


/ : 
fo 


wom at : 
Sipe 7 tye Sa Me 
at of ‘ 


The address of the storage area obtained upon 
execution of a GET@MAIN macro for a Transient Data 
output area is placed in the field by 
CICS/VS. 


i 


TYPE=FREEMALIN, RELEASE=ALL is used to release all 
of the storage associated with a task. 
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ARS. 
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5 BASIC MAPPING SUPPORT EXERCI 


Se 1. Basic Mapping, with Device Independence, can be 
used to simulate all of the functions of the 327¢ 
Information Display System using the card 
reader-line printer simulated terminal. 


20 - WAI 


roy F) 


2. When acquiring a TIOA to be used for output 
mapping, the area should be initialized to: 


a) Blanks 
b} The data you wish sent to the terminal 


c) Nothing - initialization takes too much time 
(4)\) Binary zeros 
3. Terminal oriented tasks need not use actual TIOA'ts 


when requesting BMS output services. 
oe Oe aS \ ‘ 
oe ae ot 7 
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u. What is the function of the DFHBMS SYPE= ad macro 
—_*? F fo goes poe. an oe Ga hae % LS cy é as > Al eae a _ 


S. How does a 3270 know that a field is Supposed to 
be 29 bytes noma 


se Gimintaains positions the attribute 
NN characters 20 bytes apart. 


b) A special character is sent after each 
attribute character with the length of the 


field. | ; 


c) BY magic. 
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FILE CONTROL FXYERCIS 


; let 


What type of data set access net hods are ‘supported 


Dy (CLCS/NS Pile Servaces’ © 4 * 2 af 44 


Indicate in each case below whether the data record 


sought is in an FIOA. or FWA. (non-VSAM only) 


a) Read and update unblocked record aon 
b) Read only record in blocked file. 
c) Add a new record to unblocked file 
d) Read only, unblocked and unsegqmented records /'° 


When processing a read-only request against an 
unseqmented Rae data set, the record 1s in an 
Fi0t = 


a2 ; e 
a = { 


A DFHFC TYPE= PELEASE must be used after a File 


“” 


Control PUT Sto cella se the I/O areas and control 


blocks as soon as possible. 


T / 


After issuing a DFHFC TYPE=GETAREA, THE address 


of the ea obtained is returned in the TCA at 
TCA cap. | 7 
— J 


a 


The proper sequence of macros to add a record to 


a data set is: 


GET,DELETE,PUT - 
GETAREA,PUT 2 
GETAREA,PUT,RELEASE 

It depends on the access nethod 


Acquire main storage for the purpose of adding a 
200-byte record to a file called EXAMPLE. Copy 


the necessaary dummy section and load the necessary 


register for the storage acquired. 


Issue the necessary instructions to retrieve a 


record from an unblocked ISAM file whose name is we 
EXMPL1 and establish addressability to the record pein 
retrieved. The key is in a field called KEYFLD. 
Go to a routine called EPROR for any condition 


other than NORESP. 


4 
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TRANSIENT DATA =XERC 


The application program has the choice of providing 
its own Transient Pata input area, or of allowing 
Transient Data to obtain one for it. 


tT +7 <F) 


When should the Transient Data input be released? 


a) As soon as possible. 
AD When the program is finished with the data. 


4 Just before the end of the task. 
Never -- CICS/VS will do it. 


? ! 


Write the necessary instructions to retrieve a gee J 
record from a Transient data intrapartition 
destination called TEST. The record 1s variable ... ,vs 7) | 
length up to 1900 bytes (including LLY). Make wD ee fo Ses 
Sure you have addressability to the input. - fee es 

| . Cite yg 


Write the necessary instructions to write a record 
to the transient data intrapartition destination | 
called TEST. The record is variable length and = «7/3 
is located in an input TIOA addressed by TIOABAR. ~ 
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CUSTCHER INFCRPATICN CCATRCL SYSTEM STORAGE OUMP 


PRCGRAPB STCRAGE 


c00000 
c0u°20 
ccce4t 
000060 
co0080 
CCCOAC 
ccccco 
COOCEO 
cor1¢e 
000120 
600140 
(00160 
0001: 3 
CCOLAC 
0001C0 
0001€0 
0002C0 
000220 
000240 
000260 
000280 
C002A0 


0002C0 


4100F00C 
cooco00o 
9248F0E8 
9258F048 
9268F028 
476 0F024 
800C0128 
91E091E0 
C5406040 
80000007 
5830F00C 
18FO90EO 
052002C3 
5870D0Be 
5840D0CC 
50F0S09C 
58F0302C 
50F 81611 
S8FOCOC4 
58 70D0CC 
409€5890 
50800004 


TOF81B811 


9248F0A8 
oooco00o 
4 7FCFO4C 
47F OF 02C 
47FOFOOC 
COOFUSIO 
€00C0138 
g0cco0co 
D7D361C9 
oocLcCoo 
SB810L04C 
104850C0 
DOE03024 
589C70C8 
586040CC 
588000CO 
CSEF5850 
1B5558F0 
95C6F025 
D2077084 
DOBE58A0 
587000CO 


1B5558F0 


ACCRESS 


4 TFOFORC 
oooccecc 
924CF060 
92°£CF040 
926CFO20 
48C4C6C8 
OCOCOLBA 
000C0034 
40404040 
C5E7C1D4 
5 800F008 
100441D1 
417000B8 
50S50D08C 
S060DCDC 
92808080 
D0C092a5 
302COSEF 
471802122 
30505850 
90FE5CAC 
92027080 


3O2COSEF 


ccocccco 
SeFFCCCS 
4TFOFO44 
41IFOFO24 
C5F09024 
C7TC3C9IC6E 
CCOCO1BA 
ococoon34 
40404040 
D7?D3C5C7 
1£015500 
cc005050 
SCTODCEO 
S8A0TO4C 
O21F51C0 
$2C0acgc 
505C48E0 
5850D0CO0 
92C7F025 
CCDVU41A0 
40F 81611 
92007081 


18005800 


ocoods 


CCDE= 


TC QCO2E? 


coccocco 
CTFFCCCO 
9250F058 
$26CF038 
00105830 
c7005820 
CCCCO1BA 
C4C5C2E4 
C3C3C1E2 
SCECDOOC 
CcCcC4700 
00589280 
Sé80DCEO 
50 A0L0CO 
303CD2CT7 
5eecDCBe 
301840E0 
58FCSC5C 
5 @ECCCCO 
5C1750A0 
1BESSEFC 
62077084 


OCC4ES EEO 
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Cocococdo 
CCCE29CE 
47TFOFO3C 
4TFOFOIC 
FO1E5840 
310407F2 
COCC10C8 
C7C71C9D5 
E2C4E240 
47FOFO10 
FC2C58FC 
C0009220 
18554110 
5850C0CO 
50843050 
S8ACE0FES 
SOSE58FO 
50FC5124 
S5&BCE12C 
7109C5840 
3C2CC5EF 
30585850 


OCCCS82C 


LENGTH 


TASK=CHP} 


coccccoo 
S$244FC70 
9254FO5C 
9264F030 
304CD2CC 
oCcC0138 
00320000 
CT4CC5E7 
C6C93D3C5 
QOOCOOES 
CO14CS5EF 
COC1D203 
DCEOSS8FO 
S8FOSCO8 
589CD000 
SCACSOF8 
0o0Be58B80 
58FC505C 
SABCFC26 
COC09280 
5e@scoccc 
DCBE5e6C 


DOCICCSIE 


DATE=76.191 


CCC2EC 


ooococeo 
4TECEC54 
4TFECEC34 
4TFOFCL4S 
4OBCFCLA 
coccccae 
ooco0coe 
C10407D3 
0709DEC3 
ooococca 
SBECDC4S 
00543020 
302805EF 
50FCOCCC 
41F09C11 
1B111855 
FOE450B0 
50FO0CDO 
5080E120 
40809200 
58acscso 
SOE85CEC 


coaqcocod 


TIME=09.25.497 PAGE 009 


are bop ens | een 0 8 eae eer ae me 


KPecwcceseevesececeseneveseneGs eG0.F 


#..0..-060...2.0.2-00.2-.0..00...0..00.% 
*..0. “O0cee:) 00.6204 -00..2..0..C0.% 


BeeQ eae ecAQeecVieeDecccseles oeKo 00.2% 


Hp O0sess es OPHPLICPcsdcc2idccdace® 
Oise wa asiteueeneneeanwes tl easecee™ 
#acccccccescccs se DEBUGGING EXAMPL* 
*£ . PLL! CLASSDS FILEPRCC# 


BPrccccecceL XAMPLEcceces AO. ee ce Von eH® 


Rese cn ewe Oe cw caee we Oe 60 es ces ccc F 


Lr ree rr er ee ee ee ee ee es ree 


Peake cccccccccccccececcccceelecee® 
PeccccesHswcccccccccscseceQee eI... 
Fe ccee eoceeKa cee cKecccceseveeDee * 
PeDecccccccccccseccveccebcs eGecce® 
PeDaccccccccccccces eooele eee OU..® 
PW eBe wee cD vececece cee eee e022 -0..? 
BoD eMeFO rec cee GO wccccccccecDeceee*® 


Daw aa Kae 4 eee Sil Sas 65 we ee ee ee eoe* 
% weevcescendeos Bese weDecvesecseseeea® 


PeveNescsesawvosceeKese scecsceseeVac® 


SeBcc we sO 6b 66 be 6 S606 606 OS Oe 66S 


Occcos 
occc28 
0C 0048 
occoéa 
CCCOES8 
OCQOAB 
OocOod0Ccs8 
OCQOEB 
0C0108 
0C0128 
0C0148 
0C0168 
0C018&8 
OCO1A8 
oco1cs 
OCC1E8 
0C0208 
0c0228 
0C0248 
O0C0268 
OCcC2E8B 
OCO2A8 


oco2cs 


LOC OBJECT CODE 


C001C0 
C00120 
CO00124 


coccoa 


coccco 
occaode 
000004 
d00c008 
QOocOCA 
000008 
occoos 


CCCCoCc 
ccocechl 
CCOO1E 
COCcO1T 


co0000 
Cccccc 
ccccce 
ccccocs 
000008 


ecceccc 
C00010 


DEBUGGING EXAMPLE - ASSEMBLER 


ADDR1 ADDR2 


00005 
COC06 
o0co? 


ocago0 


ooooc 


OCOOC 


ecewe 


SOURCE STATEMENT ASM ti V 05 09.20 
TCTTEAR EQU 5 
TIGQABAR EQL 6 
FWACBAR EQU 1 


CCPY DFHCSACS 
PRINT CFF 
PRINT ON 
CCPY OFKTCACS 
PRINT CFF 
PRINT ON 

STAT OS ° CL32 


ITEMTCT CS F 
SAVEACOR OS CL4 
COPY DFHICTTE 


PRINT CFF 
PRINT CN 
COPY DFHTIOA 


PHSSHOERA TS VAEAS TASES AE SHESEESE SEER OEHE SES SESESECESEEEHER SE RESRESEEHERESEESEE 
* + TERMINAL I / 0 AREA * *& * 
BPEFSHEHAOS ASANTE ISS SSHS TEESE HERE SEEHESEHEEEEEEEEEEEEEEE EHS OEREEEEEEEFESE OD 
CFHTIOA GSECT DUMMY SECTION - TERM I / O AREA 
USING #,TICABAR USING REGISTER TIGABAR AT * 
PSESCHSAEREA SHAH TEREST AEREHHOE SEES EERE SHAE EHE EE EEHEES OO FO595FSHEE4EETEE 


CS H STORAGE ACCOUNTING 
TIQASAL CS H STGRAGE ACCOUNTING — AREA LNGTH 
TIGASCA ODS A TERPINAL STORAGE CKAIN ACDRESS 
TIGATOL OS H TERPINAL DATA LENGTH 
TICAWCY] OS B WRITE CONTROL INDICATOR 
TIGACLCR OS 08 WCC OR CCC CHARACTER 
TIQALAC DS B LINE ADDRESS CONTRCL 
TIGACAC EQU *-CFRTIGA CONTRGL AREA DISPLACEMENT 


FESS SCHAEESSESRE ESL E LESS SESERAAEEEREEEHEAE SEERA RESETS ERA EAHA SEE TEER TEES 
TIOADBA EQL * TERMINAL CATA BEGINNING ADDRESS 


CS CL5 
ITEM CS CL5 
0S cll 


ITEM2 CS CL5 
CCPY OFRFWADS 


BESESESESESE EEE EES SESE ESTEE ECE SEE ESC ERS EES ESSE SESE ES EES SRST SES ES ESTE TET SES F 


a + 4 FItLe w OR K ARE A * ¢ + 
OHOHSSAEA ALAN TEREST AAS STSEESEAESEHEE EET EERDERESSESEE OHSS ETT ESEEEEE EERE 
CFRFWACS DSECT DUMMY SECTION — FILE WORK AREA 

USING *,FWACBAR USING REGISTER FWACBAR AT * 


, CS 2F STORAGE ACCOUNTING INFCRMATION 
FWAING cS ‘OB FILE WORK AREA INDICATORS 
FWAM ECL x*CO* FILE wCRK AREA MASK 


FWABRZI EQU 
FWAMASSI CS OB 
FWAPASS ECL 
FCUPDRA OS A ™ 
FCUFCTA OS A 

FWACAEA ODS oD 

FOUWALCRK FOL *~TFHFRADS 


THIS IS A BROWSE FRA 

MASS INSERT INDICATOR 

MASS INSERT IN PROGRESS 

FELE INPUT / CUTPUT AREA ACODR 
FILE CONTROL TABLE ENTRY AODOR 
CONTRCL AREA ENDING ADDRESS 
CCNTRCL ARFA CISPLACEMENT 


@&@ ®@ @& 


PAGL l 


OT/G9/76 


CC000100 
00036800 


cco00g0100 
00000300 


C0000100 
00000300 


00010000 
00020000 
00030000 
00040000 
0005C000 
00060000 
00070000 
00080000 
oco9gccagn 
00100000 
00110000 
0012C000 
00130000 
00140000 
0015C000 
00160000 


0001CcCO00 
00020000 
0003CC00 
0co4C000 
00050000 
00060000 
00070C00 
00080000 
00090000 
00100000 
00110C00 
00120000 
00130000 
0014CC00 
0015CC00 


LCC 


CCCC10 


000010 
CC0025 
C0Q00028 
000000 
000000 


000002 
cO0C006 
COCCOA 


C00010 
COCO016 
OOOOILA 
OOOOLE 
CocCc22 
000026 
OOOO2ZA 


ccccec 
CO0d02C 
000032 
000036 
CCCO3A 


00003C 
cocc4e 
CCC046 
OCOO4SA 
CCCC4E 
cco0s2 
000056 
OCOCSA 


O0O0SE 
COCCSE 
cCCCE4 
000068 
— G0CO6C 
cocc7c 
ooacT4 


Pre o vs 


DEBUGGING EXAMPLE - ASSEMBLER 


OBJECT CCCE 


0520 


58650 
5860 
D21F 


D207 
41E0 
SOEO 
9280 
92C0 
58E0 
OSEE 


C008 
5S00C 
C1co 


C084 
6011 
Cogc 
C080 
Cogc 
DOFS 


2096 


20B6 


20C6 


CO5C 


2086 


ADORI 


00100 


00084 


00080 


0009gC 


0005E 
COCSC 


00124 
00025 


00025 


00084 


00080 
Q009C 


ADDR2 


ococs 


OOOE4S 


OCcO5C 
OCOS5C 


OOCTE 
00120 


ocod28 
00120 


CCOB8 
00017 
oooscC 


COOFS 


STMT 


1629 


1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 


1642+ 
1643+ 
1644+ 
1645+ 
1646+ 
1647+ 
1648+ 


SOURCE STATEMENT 


FCUWA 


CLASSIF 


CNHAND 
MYPROG 


CS co 

CS Ct21 

CS Cli 

cs F 

CSECT 

BALR 2,0 

USING ¥%,2 

L TCTTEAR,TCAFCAAA 
L TIOABAR,TCTTEDA 


PAGE 2 


ASM HK V 05 09.20 07/09/76 


DATA AREA BEGINNING ACLRESS 


MYC STAT,=CL32*DEBUGGING EXAMPLE - ASSEMBLER® 
CFRFC TYPE=GET »,ROIDAOR=1TEM1,DATASET=CLASSDS 
LEGLAFEASSHSHTESAOEESESEEEEEEE ESSE SECEOEEE EO REESES EE EESS HS EEE EOEE SETTER ED EE 


wVC TCAFCDI,=CLE*CLASSDS* 


LA 14,1TEM) 
ST 14,TCAFCRI 


 MVI TCAFCTR»B*1COCCCCO® 


MVI TCAFCRI,B*O® 
L 14,CSAFCNAC 
BALR 14,14 


MCVE DATA SET IDENT TO TCL 

LOAD ADDRESS OF RECORD IDENT 

STORE ADDRESS OF RECORD IDENT 

> MCVE TYPE OF REQUEST TO TCA a 
% MOVE TYPE OF REQUEST TC TCA a 
LOAD FILE CONTROL ENTRY ADCRESS 

GO TO FILE CONTRCL 


LESLGAEPSSSSSSSASIASSSISSSSSASSSSSSHSSSSESSSSESHSEVRSESSSHSSRHKSHHKLISKES SARE KHER ERE 


1651 


1653+ 
1654+ 
1655+ 
1656+ 
1657+ 


CFKSC TYPE=GETMAIN,CLASS=TERM,NUMBYTE=50 
VEPEEEI TIS ELICISCCCCOCSOSIOCOOCOOC§O Ce TCT i Tri tet it rrr t ETT tetrrrtrerertrrrTterty 


CS OH seoeoeoe STORAGE 


MVC TCASCNB,=AL2 (50) 


' MVE TCASCTR, B&* 10000101 * 


L 14eCSASCNAC 
BALR 14,14 


| CONTROL CALL eeoecd 
MOVE NUM BYTES REQ TO TCA  a@BC1104E 
MOVE TYPE REQ TO TCA a 
LOAD STORAGE CONTRCL ENTRY ADOR 

GO TO STORAGE CONTROL 


LESHFHHSSSH SAR STSES VS ESSESHH ESSE HERE LESS SEES SE HESS EDS FOOSE EEDEETETOEETHESEE EES 


16€0 
1661 
1662 
1€63 
1664 
1665 
léEE 
1667 
1668 


1670+ 
L1671+ 
1672+ 
1673+ 
1674+ 
1675+ 
L67E+ 
1677+ 


READ2 


READ2 


L TIGABAR, TCASCSA 
MVC SAVEADCR,TCASCSA 
CLI CLASSIF,C*F® 


BE SUBRIN 

VVI CLASSIF,C*G* 
L 3,1TEMTICT 

A 3 ,ONHAND 


ST 3e1TEMTOT 


CFKFC TYPE=GET,RDICACR=ITEM2,0ATASET=CLASSDS 
LEGCIF OSH SSORSS ASHE SESS HSOE AGRE SHEE HT ESET S S444 EE HESSD EE ED OTHE ETEK 


CS OH 

PVC TCAFCOY,=CLB*CLASSDS* 
LA 14, 1TEK2 

ST 14,TCAFCRI 


MVI TCAFCTR,»B*10CCCO00' 
VV I TEAFCRI,B*O* 
L 14,CSAFCNAC 
14,14 


FILE COANTRCL MACRG 

MOVE CATA SET IDENT TO TCA 

LOAD ACORESS OF RECORD IDENT 

STCRE ACORESS OF RECCRO IDENT 

¢ WCVE TYPE OF REQUEST TO TCA a 
* MOVE TYPE OF REQUEST TO TCA 3 
LCAD FILE CONTROL ENTRY ABDORESS 

GO ¥C FILE CONTREL 


00170000 


O1-DFHFC 
01-OFHFC 
01-DFHFC 
01-DFHFC 
0O1-OFHFC 
01-DFHFC 
0.-OFHFC 


O1-DFWSC 
01-DFHSC 
01-DFHSC 
01-OFHSC 
O1-OFHSC 


01-DFHFC 
01-DFHEFC 
01-DFHFC 
01-DFHFC 
O1-DFHFC 
O1-OFHFC 
01-DFHFC 
01-DFHEFC 


CEBUGGING EXAMPLE —- ASSEMBLER PAGE 3 
LCC C8&JECT CCCE ADCR? ACCR2 STVKRT SCURCE STATEMENT ASW H V 05 09.20 07/09/76 
QOCO7TA 5870 CO8O ocoso 1680 L FRACBAR,TCAFCAA 
OOOTE 1681 SUBRTN EQU * 
1682 CFRPC TYPE=XCTL,»,PROGRAM=FILEPROC 
sb JuWbOOO0S 5005400064 000049406 450'50055444 005000905000 40955 004004004400 aaNS 
QOOCOTE 9202 C080 00080 1684+ WVI FTCAPCTR,B*CCCCCO1O* MOVE TYPE OF REQUEST TO TCA O1-DFRPC 
CC0082 D207 C084 20BE 00084 OOO0CO 1685+ ¥VC TCAPCPI,=CL8E*FILEPROC® MCVE PROGRAM IDENT TC TCA O1-DFHPC 
occoese 9200 C04) 00081 1686+ wVI TCAPCSR,X*00° CLEAR SECCNDARY REQUEST @ 01-DFHPC 
O0O008sC 58EO COES8 OOCEB LEBT+ L 14,CSAPCNAC LOAD PROGRAM CONTROL ENTRY ADDR O1-OFHPC © 
COCO90 OSEE 1686+ BALR 14,14 GO TO PROGRAP CONTRCL O1-OFHPC 


iE DESESESEEE SES RER SER EREER EES ES ESTEE EES SESE ES ERE SEES ES ESS SER E STE S ES ES EE TS ES SF 


000098 1691 LTCRG 

00C098 C4C5CZE4CICTCIUS 1692 =CL32"*DEBUGGING EXAMPLE — ASSEMBLER® 
COOOBS C3IN3CLE2ZE2C4E240 1693 =CL&*CLASSOS® 

goooco CéC9D3C50709D06C3 1694 =CLB*FILEPRCC® 

Qco0cs C032 1€95 =AL2(5C) 


1696 ENC 


SYMBCL 


LEN VALUE 
CLASSIF 00001 0co025 
CSAFCNAC 00004 OOO0OFS 
CSAICFNA C0004 OOO19C 
CSAICRNX 00002 0001A0 
CSACPFL 00001 00000000 
CSAPCNAC CCO04 CCOOES 
CSASCNAC CCG004 OOQ0E4 
CSASOCB 00004 0c018C 
DFHCSADS C0001 G0000000 
OFHFWADS 00001 CcOoCcc000 
DFHTCADS 00008 ocodoca 
DFHTICA C0001 CO000000 
FWACBAR C0001] CcCOocddd? 
ITEMTOT 00004 000120 
ITEM] C0005 ocooll 
ITEM2 c0005 0c0017 
ONHAND C0004 000028 
SAVEACDR C0004 0C0124 
STAT 00032 000100 
SUBRIN C0001 CCOUO07E 
TCACBAR C0001 CCO0COCC 
TCACCCA C0004 000080 
TCACCEA CvO00l COOQOOEDO 
TCACCRS 00004 OCQOA0 
TCAFCAA Q0004 000080 
TCAFCAAA CQQ004 000008 
TCAFCDI CCO008 CC0084 
TCAFCRI CC004 Oc 009C 
TCAFCTR C0001 000080 
TCAPCAC CC004 000ds8C 
TCAPCPI cCOO08 CC0084 
TCAPCSR Cccool 000081 
TCAPCTR coodl 000080 
TCASCNB CCO02 OCOOS5E 
TCASCSA 00004 Q0005C 
TCASCTR CCO01 OcoosCc 
TCTTEAR CCOOl CCCOCO0S 
TCTTEDA C0004 CcCoacc 
TCTTEEXE COCO1 CCO0Q0010 
TCTTEMEQ CCOC1l CCCC0040 
TCTTESC CCO004 occocs 
TCTTETDE CCO04 cOoooTCc 
TCTTETOG CCO04 0c0030 
TCTTETPD CCOOl CCCCOOAC 
TCTTETTE CCOCl CcCodcd0d 
TIQABAR CclO01 CCCOC006 
=AL2(50) CCCC2 cccocs 
=CL32*OEBUGGING EXAMPLE 

C0032 oco0og98s 
=CLO*CLASSDS* 

“0008 CCCOBS 
=CLO*FILEPPS 3 

C-, Gaze oococo 


DOEFN REFERENCES 
1632 1662 1664 
0094 1647 1676 
0158 0160 
0159 0162 
0230 C323 
0090 =: 1687 
0088 1656 
0146 0151 
0008 0329 
1616 1627 
0384 0383 
1594 1604 
0004 1617 1680 
1005 1665 «1667 
1609 1643 
1611 1672 
1633 1666 
1006 §= 1661 
1004 1639 
1681 1663 
0382 0383 
0499 0510 0524 
0502 0979 
0500 0558 0663 
0904 1680 
0395 1637 
0905 12642 1671 
0910 1644 1646 
0902 1645 1674 
0680 0685 
0679 1685 
0674 1686 
0673 1684 
0489 1654 
0486 1660 1661 
0487 1655 
0002 1918 1637 
1111 =-:1€38 
1588 1563 
1532 1548 
1109-1110 
1437 1468 1530 
1191 1211 
1063-1064 
1562 1563 
0003 1595 1638 
1695 1654 

~ ASSEMBLER! 

1692 1639 
1693 1642) «1671 
1694 1685 


CROSS REFERENCE PAGE 4 


ASM H V 05 09.20 07/09/76 


0567 0672 C67&E O7CC 0720 0818 0859 0883 0901 0923 0945 0961 


0691 ©0808 0850 0874 0892 0914 0936 0952 0972 


1673 1€75 


1545 


16€0 


¢ Cc 


‘DIAGNOSTIC CRCSS REFERENCE ANC ASSEMBLER SUMMARY PAGE 5 


ASM H V 05 09.20 07/09/76 
NC STATEMENTS FLAGGED IK THIS ASSEMBLY 


OVERRIDING PARAMETERS- NODECK ,OBJECT,XREF(SHCRT),NCESO,NCRLO 

CPTICNS i: CR THIS ASSEPBLY 

NODECK, CIJECT, LIST, XREFI(SKCRT)» NCRENT, NCTEST, NCBATCHK, ALIGN, NOESD, NORLO, LINECOUNT(55), FLAG(0O), SYSPARM() 
NO OVERRIDING CD NAMES 


41 CARDS FROM SYSIN 3841 CAKDS FROM SYSLIB 
191 LINES CUTPUT 6 CARES CuTPuT 


¢ 


PP 5740-C BL RELEASE 1.1 NCV 30, 1975 


18M CS/VS COBOL 


l 9.21.41 JUL $,1976 
CC00) ICENTIFICATION DIVISICN. 
00002 PROGRAM~I10. 
COC03 DEBUGGCING—EXAMPLE-CCBOL. 
OCC04 ENVIROGAPENT OIVISICA. 
C0005 DATA OIVISION. 
00006 LINKAGE SECTION. 
cocc? Cl CFHBLLOS CCPY CFHBELLDS. 
cco0s C Cl OFHBLLOS SYNCHRCNIZEDO. 
00c0o9 C BLLCBAR PICTURE XXXX. 
00010 C CSACBAR PICTURE XXXX. 
COo0o1l1! C CSACPBAR PICTURE S9(8) USAGE IS CCMPUTATIGNAL. 
C0012 C TCACBAR PICTLRE $9(8) USAGE IS COPPUTATICNAL. 
00013 O02 TCTTEAR PIC $9(8) USAGE IS CCMPUTATICNAL. 
00014 O02 TIOQABAR PIC $9(8) USAGE IS CCMPUTATICNAL. 
00015 O2 FWACBAR PIC S9(8) USAGE IS CCMPUTATICNAL. 
C0016 O1 OFKCSADS COPY CFHCSADS SUPPRESS. 
CC054 Q1 DFHTCADS CCPY CFHTCADS SUPPRESS. 
C0337 O02 STAT PIC X(32). 
00338 O2 ITEMTOT PIC 98) COMP. 
C0339 O2 SAVEACOR PIC §9(8) CCMP. 
C0340 Cl OFHTCTTE CCPY OFHTCTTE SUPPRESS. 
00389 Q1 DFHTIOA COPY DFHTIOA SUPPRESS. 
C0400 O02 FILLER PIC X¥(5). 
C0401 O2 ITEML PIC X(5). 
00402 Q2 FILLER PIC X(1). 
00403 O02 ITEM2 PIC X(5). 
C0404 Cl OFHFWADS CCPY CFHFWADS SUPPRESS. 
CO41C O2 FILLER PIC X(21). 
00411 O2 CLASSIF PIC X{1). 
C0412 O02 ONKAND PIC 9(5) COMP-3. 
C0413 PROCEDURE DIVISION. 
00414 MOVE CSACDTA TQ TCACBAR. 
C0415 MOVE TCAFCAAA TQ TCTTEAR. 
CO4lé MCVE TCTTECA TC TICABAR. 
CO417 MOVE "OEBLGGING EXAMPLE —- CCBCL* TC STAT. 
C0418 # CFHFC TYPE=GET 0444, 
C0419 % DATASET=CLASSES 4004, 
CC42C * RDIDACR=ITEF1 #044, 
00421 MOVE *"CLASSOS* TO TCAFCDI. 
C0422 MCVE 32768 TO TCAFCTR. 
C0423 MOVE © TO TCAFCTRI. 
00424 MOVE CSAFCNAC T0 TCACSPE. 
C0425 CALL "OFHCBLI® USING ITEMPI. 
C0426 * OFHSC TYPE=GETMAIN | Eee 
C0427 * NUMBYTE=5C 244, 
C0428 % CLASS=TERM #902, 
C0429 POVE 34048 TO TCASCRI. 
C0430 MOVE 50 TC TCASCNB. 
00431 MOVE CSASCNAC TO TCACSPE. 
C0432 CALL *OFHCBLI*. 
C0433 MOVE TCASCSA TC SAVEADOR, TICABAR. 
00434 IF CLASSIF = *F* GC TO SUBRIN. 
PO4AE MOVE *C* Yr CILASSTF. 


C0010000 
C0020000 
C0030000 
00040C00 
00050000 


9.21.41 


DATE JUL 


99,1976 


$ 
% 


9.21.41 JUL G,1S976 


REAC2. 
CFHFC TYPE=CGET 0494, 
DATASET=CLASSDS ee48, 
RCICACR=ITEM2 4994, 
PCVE *CLASSCOS* TO TCAFCCI. 
MOVE 32768 TO TCAFCTR. 
MOVE O TO TCAFCTRI. 
MCVE CSAFCNAC TC TCACSPE. 
CALL *DFHCBLI®* USIAG ITEM2. 
MOVE TCAFCAA TQ FRACBAR. 
SUBRTN. 
OFHPC TYPE=XCTL 4494, 
PROGRAFP=FILEPROC 8420, 
MOVE §512 TO TCAPCTR. 
MCVE *FILEPROC® ¥C TCAPCPI. 
MOVE CSAPCNAC TC TCACSPE. 
CALL *OFHCBLI*. 
CCBACK. 


C 


PFMCTL CFLLS 


CEBUCGIN 9.21.41 JUL $1976 
MEMORY BMAP 

TCT OCCAQ 
SAVE AREA CCCAC 
SWITCk OOCOES 
TALLY OCOEC 
SCRT SAVE OGQFO 
ENTRY-SAVE CCCF4 
SCRT CCRE SIZE OOOF8 
RET CODE COCFC 
SORT RET CCCFE 
wCRKING CELLS 0010C 
SCRY FILE SIZE 00230 
SCRT MODE SIZE 00234 
FCT-VN TAL 00238 
TGT-VA TBL 0023C 
VCONPTR 00240 
LENCTh OF VN TBL C0244 
LABEL RET 00246 
CURRENT PRICRITY 00247 
CAG RI4SAVE C0248 
CCBCL INDICATCR 0024C 
ACINIT1) 00250 
CEBUG TABLE PTR 00254 
SUBCOM PTR 00258 
SCRT-FPESSAGE 0025C 
SYSOUT ODNAME 00264 
RESERVEC C0265 
CCBCL ID 00266 
COMPILED POINTER 0C268 
CCUNT TABLE ADDRESS CO26C 
RESERVED 0C270 
OBG RIISAVE 00278 
COUNT CHAIN ADDRESS CC27C 
FRBL1 CELL PTR 00280 
RESERVED 00284 
TA LENGTH C0289 
RESERVED 0c28C 
CVERFLCW CELLS 00298 
BL CELLS C0298 
CECBADR CELLS CC29E& 
FI8B CELLS 00298 
TEMP STORAGE 00298 
TEMP STORAGE-2 CO2AC 
TEMP STORAGE-3 OO02AC 
TEMP STCRAGE-4 Q02A0 
BLL CELLS OO2AC 
VLC CELLS CC2C8 
SEL CELLS 002C8 
INDEX CELLS 002C8 
SUBAOR CELLS oc2cé& 
CACTL CELLS oc2ce 


0C?C8 


4 DEBLGGIN 9.21.41 JUL 9,1976 


SAVE AREA =2 CC2CE 
SAVE AREA =3 oc2ce 
XSASW CELLS 0C2C8 
XSA CELLS Qc2cs 
PARAM CELLS CC2C8& 
RPTSAV AREA ago2cc 
CHECKPT CTR CO2cC 
VCON TBL Cc20C 


LITERAL POOL (KEX) 


OO2F8 (LIT#0) 80C00085 00320200 C4C5C2E4 CICIC9DS C?40C5E7 C1D40703 | y 
CC31C (LIT+24) C5406040 C3D06C2C6 03C303C1 E2E2C4E2 Cé6C903C5 070906C3 


PGT 002C8 : 

CVERFLOW CELLS cc208 

VIRTUAL CELLS 00208 

PROCEDURE NAME CELLS OO2E8 

GENERATED NAME CELLS CO2EC 

CCB ACCRESS CELLS OO2F4 

VAT CELLS CO2F4 

LITERALS CC2F8 

CISPLAY LITERALS CC328 

CONDENSED LISTING 

414 MOVE 0C0328 415 MOVE 000336 416 MOVE 000340 
417 MOVE CCO34A 421 MCVE COO35E ; 422 MOVE 000368 
423 MOVE 00036E 424 MOVE CCC374 425 CALL OOO37E 
429 MOVE 0003AC 430 MOVE C003B6 431 MOVE 0003BC 
432 CALL C003C6 , 433 MOVE COO3E2 434 IF OOO3FA 
434 GC 000408 — 435 MCVE CCO4CE 436 ADC 000416 
441 MOVE O0042E 442 MOVE C0043C 443 MOVE 000442 
444 MOVE CC0448 445 CALL €00452 446 MOVE — 000480 
450 MOVE OOO48E 451 MOVE C0C498 452 MOVE 00049E 


453 CALL O004A8 454 GOB ACK CCC4C4 


C c 


5 CEBUGGIN 9-21-41 JUL 941976 
¥STATISTICS* SCURCE RECORDS = 454 DATA DIVISION STATEMENTS = 406 PRCCEOURE DIVISTIGN STATEPENTS = 293 
*OPTIONS IN EFFECT SIZE = 253952 BUF = 77824 %\LINECNE = 57 SPACE], FLAGW, SEQ, SOURCE. 
*OPTIONS IN EFFECT* NCOMAP, NCPRAP, CLIST, SUPMAP, NOXREF, NCSXREF, LOAD, NODECK, APOST, NOTRUNC, NOFLOW 
*#OPTIONS IN EFFECT# NOTERP, NCNUM, NOBATCH, NCNAPE, CCMPILE=01, NCSTATEs NCRESIDENT» NODYNAP, LIB, NOSYNTAX 
*OPTIONS IN EFFECT NCCPTIMIZE, NCSYMDPP, ACTEST, VERB, ZWwB, SYST, NOENDJQB, NOLVL 
*OPTIONS IN EFFECT NOLST » NCFDECK,ACCCECK, LCCL2, L120, CUPP ,» NOADV , NOPRINT, 


*OPTIONS IN ESFECT# NOCOLNT, NCVBSUM, NOVBREF. 


PL/I CPTIMIZING CCPVPILER /* DEBUGGING EXAMPLE - PL/I *4/ 


STMT 


Sw 


5 
6 


SCURCE LISTING 


/* CEBUGGING EXAMPLE ~ PL/I */ 

EXAMPLE: PRCC CPTICNS (MAIN, REENTRANT) 3 . 
Z INCLLOE (DEHCSADS) 544980499008 09056F94 9509008 E0 9 908404998 
PRC TESILCO LILI SS EClECLSLEVererreserrerrrees TT Tetrtrtelerrrir eT TTETereret Tyiihiiitils 
* 6 # COMMON S YS FE ™M AREA * # #0002C000 
SEC EEPETIOCSSOCSCSCCSCCTOSCSCSTOSV OSCE SICCLE SSL OOOSOLErererererererrrrtrt ft Pieris) 


DECLARE OFHPLIC ENTRY (POINTER), 00040CC00 
OFHPLIT ENTRY ()35 0005CC00 
CALL DFHPLIC (CSACBAR); /* Ge wc fC §$ TO GET C § A */0006C000 
DECLARE 1 DFHCSADS BASED /* CCMMCN SYSTEM AREA */00070C00 
(CSACBAR ). /* COMPON SYSTEM AREA POINTER */00080000 

2 CSACSRA CHAR (76), co090C00 
2 CSACDTA POINTER, /* CURRENTLY CISPATCFED TASK ¥%*/00100C000 
2 CSATODP FIXED DECIMAL (7), /* TIME CF CAY PACKED #/0011C000 
2 CSAFILL2 CHAR (12), 00120000 
2 CSACTCOB FIXED BINARY (31), /*# CURRENT TIME OF DAY */001300C0 
2 CSAFILLI CHAR(24), . 0014C0CCO 
2 CSAJYDP FIXED DECIMAL(7), /#*JLL DT #/0015C000 
2 CSAFILL6 CFAR(72), /* *#/0016C000 
2 CSACPFLA PCINTER, /* CPT FEATURES LIST AODR #/00170000 
2 CSAFILL4 CHAR (20), 00180000 
2 CSAKCNAC PCINTER, /* TASK CONTROL ENTRY ADDRESS */00190000 
2 CSASCNAC PCINTER, /* STRG CONTROL ENTRY ADORESS #/00200000 
2 CSAPCNAC POINTER, /* PRCG CONTROL ENTRY ADCRESS */00210000 
2 CSAICNAC POINTER, /* TIME CONTROL ENTRY ADDRESS */00220000 
2 CSACCNAC PCINTER, /* CUMP CONTROL ENTRY ADDRESS *#/0023CC00 
2 CSATCNAC PCINTER, /* TERM CCATROL ENTRY ADDRESS */00240C000 
2 CSAFCNAC PCINTER, /* FILE CCNTROL ENTRY ACCRESS *#/00250000 
2 CSATDNAC PCINTER, /* 1 D CCATROL ENTRY ADDRESS */00260000 
2 CSATSNAC PCINTER, /* 1 S CONTROL ENTRY ACDRESS #/00270C000 
2 CSASANAC FOINTER, /* PL/I STRG ALLCC MCD ALCOR */00280000 
2 CSATRNAC POINTER, /* TRACE CCNTRCL ENTRY ACOR */00290000 
2 CSAPINAC POINTER, /* PRCG INTRPT ENTRY ADDRESS */003CCCOO0 
2 CSAFILLS CHAR (4), CO31CC00 
2 CSASPNAC POINTER, /*# SYNC CONTROL ENTRY ADDRESS */00320000 
2 CSATCRWE PCINTER, /* TCP READ-WRITE ENTRY ADDR */00325000 
2 CSAFILL1 CRAR (215), 0033CC00 
2 CSAUTAL FIXED DECIMAL (5) ALIGNED, /# USER STATISTICS #/0034C0000 
2 CSAUTA2 FIXED DECIMAL (5) ALIGNED, /* USER STATISTICS */0035CC00 
2 CSAUTA3 FIXEC CECIMAL (5) ALIGNEC, /* USER STATISTICS */0036CCO00 
2 CSALTA4 FIXEC DECIMAL (5) ALIGNEDS /* USER STATISTICS */00370000 


PO CEEESE SESS EST SESE ESTEE SSE EEE E EES EEERSEESCEESSOSSE SSPE SCE E ET TET SEE Otel ele 
CSACFBAR = CSACPFLA; /*# FPCVE CPT FEATURES LIST PTR #/0039CCO0 


DECLARE 1 CSACPFL BASED (CSACPBAR), 0040C0CO 
2 CSAATP POINTER, /* ATP INTERFACE ADOR */00410000 
2 CSAATCHK PCINTER» /* ATTCr INTERFACE ALOD #/0042C0C0 


& 


ne 


PAGE 


2 


PL/I CPITGiMIZING COMPILER 


STMT 


CSACLI PCINTER, 
CSABFNAC PCINTER, 
CSABMS POINTER, 
CSATMSVT POINTER, 
CSAJCNAL PCINTER, 
CSAJCNA2 POINTER, 
CSASRNAC PCINTER, 
CSASRTBA PCIATER, 
CSAKPNAC PCINTER, 
CSAATMSP POINTER, 
CSAXLTBA PCINTER, 
CSAJCTBA PCINTER; 
PEE RERES TS ESES ES EE ES S| 


hM N\A A PON AO MAD AD AO AO 


/4 
/* 
/4 
44 
/4# 
/* 
/4 
/* 
/* 
4% 
/% 
/* 


a 


/* DEBUGGING EXAMPLE - PL/I] #/ 


GL/I INTERFACE ADOR #/0043C0C00 
SIF INTERFACE ADOCR #/0044C000 
BPS INTERFACE ADDR #/00450000 
ACOR TMS VECTOR TABLE #/00460000 


JRNL CTL MACRO ENTRY PTR. #/00470000 
JRNL CTL MACRO ENTRY PTR.2 #/00480000 


SRP ENTRY ADDRESS *#/00490000 
SRT BEGIN AODRESS #/€056CC000 
KPP ENTRY ACCRESS #/00510000 
ATMS CONTRCL POINTER #/0052C000 
SYS.TERM.TRANS.LIST TABLE ¥*€/0053€000 
JCT BEGIN ACCRESS #/00540C00 


ZT INCLUDE CEHECACS 5 3990 0099S 0908 4005944494994 SSSH4S9SESH4T9HSTHETEEEREDE 

SESTESHKAS EET EEERS SO SS OSSOOS S944 0O9 9849958 44E 4945949944494 9 SSS H9HSEEEBIOOOICOOS 
ee TAS K CCNTRCL AREA * *# $00020000 
PE SEE SET E SESE LESTE LET EE SER ESE SEER ES ER EE SE SEE ESE SEES RPE TEESE TES EEE ES Pi irilek ieee) 


7 (TCACBAR = CSACOTA; 


/@ 


MCVE TASK CONTROL AREA PNTR#*/CO04C000 


/ROCHEEEETEDEEEEEE TEES EE DESDE EEEEE HEHE OSTEO 495908002008 450040999099908/0005C000 


8 DECLARE 1 DFHTCATP BASED 
(TCACBAR), 
2 TCATPSD CHAR (128), 
2 TCATPAPR BIi (8) ALIGNED, 
2 TCATPSOL CKAR (1) . 
2 TCATPCS! BIT (8) ALIGNEC, 
2 TCATPOS2 BIT (8) ALIGNED, 
2 TCATPCS!) BIT (8) ALIGNED, 
2 TCATPCS2 BIT (8) ALIGNEC, 
2 TCATPCCL] BIT (8) ALIGNEC, 
2 TCATPOQC2 BIT (8) ALIGNEC, 
2 TCATPLDOW CKAR (2), 
2 TCATPCCN BIT (8) ALIGNEC, 
2 TCATPFIL CHAR(1), 
2 TCATPPNM CFAR (8)3 
DFHTCAFC BASED 
{TCACBAR), 

TCAFCSC CKAR (28), 
TCAPURGI BIT (8) ALIGNEC, 
TCAFCSO1 CHAR (99), 
TCAFCAA POINTER, 

TCAFCCI CKAR (6), 

TCAFCAI CHAR (8), 

TCAFCSE CHAR (8), 

TCAFCRI POINTER, 

TCATRFLI CKAR (64), 
TCATRFIH BIN FIXED (15), 
TCATRFLE CKAR (2), 
TCATRF2H BIN FIXEC (15)3 
FHTCADC BASEO 


9 DECLARE 1 


On hh Mh A ~& AD A AD PD RO AO 


10 DECLARE 


/* 
/3* 
/* 
/% 
/4 
/? 
/* 
/% 
/# 
/* 
/* 
/% 
/* 
/* 
/* 
/* 
/* 


/% 


1 C A TCP COPPUNICATION */00050500 
COMMUNICATION AREA POINTER #/00051000 


*/00051500 

RETURN COCE *#/00052000 
#/00052500 

*/00053000 

CPERATICN RECUESTS */00053500 
| */00054000 
CCNTRCL REQUESTS */000545C0 
OP CCNTROL RECUESTS 21 #/00055C00 
OP COGNTROL RECUESTS 2 #/00055500 
LCC PNEPONIC */ C0056400 
CCNNECTICON TYPE #/ | 00057300 
RESERVEC */ 00058200 
PROGRAM NAME o/ €0059100 


1 C A FILE COMMUNICATION *¥/00060000 
CCRPUNICATICAN AREA POINTER #/00070000 


co0soc0nd 
STALL PURGE INDICATOR #/0009C000 
001¢c0000 
FILE AREA ADDRESS *#/€011C000 
CATA SET IDENTIFICATION #/0012C000 
INCIRECY ACCESS ICENT *#/001300C0 
SEGPENT SET ICENTIFICATION #/00140000 
RECORO IDENTIFICATION #/0015C000 
cC016C000 
BINARY HALFWCRD TRACE FLO 1%*/00170000 
00180CC0 


BINARY FALFWCRD TRACE FLD 24/CO19C000 
TC A DUMP COPPUNICATICN #/00210C00 
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PL/I OPTIMIZING COMPILER 7* DEBUGGING EXAMPLE - PL/I 4/ 


STMT 


30 
31 


32 


2 TCANXTID CHAR (4), /* NEXT TRANSACTION ID #/0219CCCO 
900040800099 099 908 
2 STAT CKAR (32), 
2 ITEMTOT FIXED BIN (31,0), 
2 SAVEACOR POINTER; 7 | 
Z INCLUDE DEHTCT IE 104999949 950 49996000005000000 085: IRROATHEAATERER ETERS 
RESELLERS LESELECEL ESE SEY SEES S PVE PE rrr rreeereee scree rcerres tS SPerereres SY tails cies 


** @ TERMEIENAL CCNKTRCL TABLE * #01896600 
* 4 4 | TERMINAL EN TR Y * * #03783200 
ttt tp pent, hpe eee tee tt LE te SRE ESE REE SERS EER EE ESTEOEE ELE ES ECS ERS SSCS S EES STi yy Ar rely) 
TCTTEAR = TCAFCAAA; /* MCVE TERMINAL ENTRY POINTER*/07556400 
DECLARE 1 DFHICTTE BASED (TCTTEAR)» /* 1 C T TERPINAL ENTRY */09443000 
2 TCTTETI CtaAR (4), 7* TERMINAL IDENTIFICATION *#/11329600 

2 TCTTETT BEIT (8) ALIGNED, /*# TERMINAL TYPE #/13216200 

2 TCTTETM CHAR (1), /* TERMINAL WOCEL #/15102800 

2 TCTTESDL CKAR (1) /* */16989400 

2 TCTTETS BIT (8) ALIGNED, /* TERMINAL STATUS */18876C00 

2 TCTTESO2 CHAR (4), /* #/20762600 

2 TCTTEDA POINTER, /*# TERMINAL AREA ADDRESS */22649200 

2 TCTTECA PCINTER, /* TASK CCANTROL AREA ADORESS */24535800 

2 TCTTESO3 CHAR (4), /* #/264224CO0 

2 TCTTECIA POINTER, /* USER EXTENSICN ADORESS */28309000 

2 TCTTECIL CHAR (1), /# USER EXTENSION LENGTH #/30195600 

2 TCTTVEPCF BIT (8) ALIGNEC, /* PASSBCCK CONTROL FIELD #/32082200 

2 TCTTEURC CHAR (1), . /* USER RETURN CODE */33968800 

2 TCTTESD4 ChKAR (6), /* */35855400 

2 TCTTECE CHAR (3), /# CPERATOR IDENTIFICATION */37742C00 

2 TCTTESD5 CHAR (8), /* */39628600 

2 TCTTECAD BINARY FIXED (15), /*# CURSOR ADDRESS IN BINARY */41515200 

2 TCTYEAIO CHAR C1)» /* ATTENTICN IDENTIFIER */43401800 

2 TCTTEFIB BIT (8) ALIGNEC, /* TERMINAL FEATURE FLAG */45288400 

2 TCTTEBMN CHAR (8), /* MAP NAFE */47175000 

2 TCTTESC6 CKAR (4), ad */490616C0 

2 TCTTETA CHAR(4), /* TERMINAL ACCRESS */5094862C0 

2 TCTTESD? CHAR (8), /* */52834800 

2 TCTTETC CAR (4), /* TRANSACTICN CCOE */54721400 

2 TCTTESOS CHAR (7), /4 */56608CCO 

2 TCTTETP BIT (8) ALIGNED, /* TERMINAL PRICRITY */584946C0 

2 TCTTESDI CHAR (17), /* */60381200 

2 TCTEAPIG BIT (8) ALIGNEC, /4# ACCESS METHCO FLAG */62267800 

2 TCTTECS BIT (@) ALIGNED, /* CPERATICN REQUEST */641544C0 

2 TCTTECS BIT (8) ALIGNED, /* CONTRCL REQUEST #/66041000 

" 2 TCTTEOC BIT (8) ALIGNED, /* OPTICNAL CONTRCL REQUEST */67927600 

2 TCTTESDA CFKAR (15), /* *#/69814200 

2 TCTTEFLG BIT (8) ALIGNED, /* 2580 FLAGS . #/71700800 

2 TCTTESCE CtAR (59)3 /* *#/73587400 

DECLARE 1 DFHTCTEL BASED (TICTTEAR), /*# TCTTE QVERLAY */75474C0CC 
2 TCTTESDC CKAR (29), /* */7173606C00 


2 TCTTECR BIT (8) ALIGNED, /* CONDITICNAL RETURN REQUEST */79247200 


PAGE 


8 


PL/I 


tn 
. 


‘ oy 
= nN 
, ‘# . . 
; 
4 ‘ 
ti: . 


CPTiaMIZIAG CCFPPILER /* DEBUGGING EXAPPLE - PL/I #/ 
STMT 
2 TCTTESDO CrAR (18), /* */81133800 
2 TCTTENSA CKAR (1), /* NCRMAL ADORESS */83020400 
2 TCTTEBAA CHAR (1), /* ALTERNATE ACCRESS #/849C 7000 
2 TCTTESIC CHAR (1), /*@ STATION TOENTIFICATION */86793600 
2 TCTTETA@ CKAR {1)> /* NUMBER OF TABS REQUIRED */286802CO0 
2 TCTTETIO CHAR (1)3 /* MCCEL 4 TELLER ICENTIFIER -#/9056€6800 
33 DECLARE 1 DFHTCTE2 BASED (ICTTEAR), 4* ICTTE OVERLAY #/92453400 
2 TCTTESDE CKAR (29), /* #/94340C00 


34 
35 


36 


37 


38 


39 


2 TCTESIGY BIT (8) ALIGNECS /* SIGNAL RECEIVED INDICATOR #/96226600 
CSEEEERELPESEEE ES EY SY 


Z INCLUCE (CEHTIOA ) 5 4099999084048 9SF4HS9 59S 59499 4S SHEE EEREEBOD 
eT es eT TEST TEESE SPREE PELE SSESSCO CEP ES ESSE SESLESESSOSCO OCS SL Soh ori 


+ +¢ 8 TERMINAL I / C AREA * * #€00206C00 
BPFHEISEGTET EES GEEET EDS SSSTT TIESTO S EHS SSSEHEDSEDHSE4ESTESHEHEEEEES/COO3I0000 
TICABAR © TCTTEDA; /@ MOVE TRY I / O AREA POINTER#/CCO4CO00 
DECLARE 1 DLFHTICA BASED (TICABAR), /* TERMINAL £ / GO AREA */C005C000 
2 TIOASAL CHAR (8), 00060000 

2 TIOATCL BINARY FIXED (15),/% TERMINAL CATA LENGTH */0007C000 

2 TIOAWCIT BINARY FIXED (1593/* WRITE CCNTROL INDICATOR */COO08CO00 

DECLARE 1 OFHTIOAB BASED (TIGABAR), 00090000 
2 TIOAFL2 CKAR (10), 0010C000 

2 TIUACLCR BINARY FIXED (15)3 /#*® CONTRCL CHARACTER ¥/COLICCOO 

TECLARE 1 DFHTICAA BASEL (TIOABAR), 00120000 
2 TIOAFLI CHAR (10), 00130000 

2 TIGALAC BINARY FIXED (15),/% LINE ADDRESS CONTROL #/001400CO 


REPRESS ELEESTESE ELE LETTE ES EE SECS ES ES ES ESE SESE SS RESE EEE SRE EES EE SECTS S FPF eit: 
pEEESSESZTESEEEESEY & F | 
2 FILL1 CHAR (515 
2 ITEM1 CHAR (5), 
2 FILL2 CHAR (1), 
2 ITEM2 CHAR (5)3 
Z INCLUDE (DEHFWADS ) 5 94 OO99909T 8098090909499 4449895 49554499 ETES 
RESELL ELSELESECEE SEES ER ESE ES SEP EEE SREP SEES E SS ESSE EET SES EPS ESSEC PEST SLES FS Tiley ate! 


* 4 % FIte wCR K AREA * # #C002C0CO 
SCOHIETEASELESEESHSEFESHES 199494 6904989049 9400 5009010900049 990040489004/C003C000 
DECLARE 1 OFHFWADS BASED (FWACBAR), /* FILE WCRK AREA #/CO04CCCO 
2 FWAFILLI CHAR (8), /*aBC5840Y*/00050000 

2 FWAIND BIT (2), 4*8BC5840Y4%/CO06COCO 

2 FWAFILL2 BIT (6), /*aBC5840Y*/0007TCCCO 

2 FIOADS CHAR (7), /*aBC5840Y*/00080000 


SESSOEDEAESE ATES EOETEESE OD 0SE 09909990 0540909 009900099590 59 4094499998904 /0009C000 
CESSES EI SEIS ELT TEE TE 
2 FILLER CHAR (21), 
2 CLASSIF CHAR (1), 
2 CNHAND FIXED BIN (31,0); 
STAT = *DEBUGGING EXAMPLE - PL/I*$ 
/#@* DFHFC TYPE=GET e0/ 
sets DATASET=CLASSOS $09/ 
/444 RDIDADR=ITEMI 4ot/ 


PAGE 
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PL/I CPTIMIZING COMPILER 


STKFT 


-™ 


/*# DEBUGGING EXAMPLE — PL/I #/ 


TCAFCDI = *CLASSOS® 3; 
TCAFCRI ADDRC(ITEMIL) 3; 
TCAFCTR *10C00000°R; 
TCAFCTRI = *OCOO0CO0'B; 
TCACSPE = CSAFCNAC; 
CALL OFHPLIT; 


now 


/#** CFHSC TYPE=GETMAIN 999/ 
/+ae NUMBYTE=50 a36/ 
/ 49% CLASS=TERM $04/ 
TCASCTR = *10C00101°B; 
TCASCNB = 50 3 


TCACSPE = CSASCNAC; 
CALL DOFHPLIIS 
SAVEACDR, TIQABAR = TCASCSA; 
IF CLASSIF = *F* THEN GO TO SUBRTN; 
CLASSIF = "€*% 5 
ITEWPTCT = ITEPTCT + CNHAND; 


READ2: 
/*#40 CFHFC TYPE=GET $0 / 
/ #42 DATASET#=CLASSOS 44%) 
/*%* RDIODADR2=ITEM2 #44/ 
TCAFCOE = *CLASSOS® $3 
TCAFCRI = ADORCITEM2) ¢ 
TCAFCTR = *20C00000° 8B; 


TCAFCTRI = *OCCCOCCOO'B; 
TCACSPE = CSAFCNACS 
CALL DFHPLIT; 

FRACBAR = TCAFCAA$ 


SUBRTNS 
444% DFHPC TYPE=XCTL 499/ 


/*e? PRCGRAP=FILEPRCC oo%/ 
TCAPCTR = *00C00010'B; i 
TCAPCSR = *O00C00000'B; 

TCAPCPT = *FILEPRCC*® ¢ 
TCACSPE = CSAP”ZNAC3 
CALL OFHPLIT; 

END; 


PAGE 


PL/I CPTIMIZING COMPILER 


000000 
CQ0004 
cocods 
ocoo00Cc 
000010 
CCCO14 
OcCO18 
QOQOLA 
cocc20 
CCCO24 
000028 
Cocd2c 
COCcC30 


cocds0 
000058 


0O000C060 
0C000008 
CCOCCOSA 
OOOQQCO5A 
OCQOOCSA 
CCOOCCCO 
0032 


SLEOQ9ILEO 
8CCCOCCC 
0dd0CCOO 
00000000 
C4C5C2E4C 7070905 
C740C5E7C104D 703 
C540604007T0361C9 
4040404040404040 
C2D3C 1€2E2C4E240 
C6C903C5D70906C3 


/* DEBUGGING EXAMPLE -—- PL/I 4/ 


STATIC IATERNAL STCRAGE MAP 


PRCGRAM ADCON 
PROGRAM ADCON 
PRCCRAFM ADCCN 
PROGRAM ADCCN 
PRCGRA# ADCON 
AseSTATIC 
CONSTANT 


CCNSTANT 

Awe CSACBAR 
AseENTRY DFHPLIC 
AseENTRY DFHPLII 
CONSTANT 


CONSTANT 
CONSTANT 
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PL/I CPTIMIZING COMPILER 


IDENTIFIER 


CSACBAR 
CSACPBAR 
TCACBAR 
TCATRFIA 
TCATRF2A 
TCTTEAR 
TICABAR 
FWACBAR 


VARTABLE STORACE MAP 


LEVEL OFFSET 


184 
188 
1$2 
196 
2Cc0 
2C4 
2cé 
212 


/* DEBUGGING EXAMPLE — PL/I %/ 


ELASS 


AUTO 
AUTO 
AUTC 
AUTO 
AUTC 
AUTE 
AUTC 
AUTO 


BLOCK 


EXAMPLE 
EXAMPLE 
EXAMPLE 
EXAMPLE 
EXAMPLE 
EXAMPLE 
EXAPPLE 
EXAMPLE 


PL/I CPTIMIZING COMPILER 4* CEBPUGGING EXAPPLE - PL/I 4/ 


TABLES CF CFFSETS AND STATEMENT AUPMBERS 


WITHIN PROCEGCURE EXAPPLE 


OFFSET (HEX) 0 52 70 TC 84 90 gC A2 
STATEMENT NO. l 3 5 q 30 34 3S 4C 
OFFSET (HEX) E6 F2 FC 110 Lic 120 13C 13A 
STATEMENT AQ. “8 49 50 51 52 53 54 55 
CFFSET (HEX) 18C 186 192 19C 
STATEMENT NG. 63 64 é5 E€ 


NO MESSAGES PROCLCED FCR THIS COMPELATICN 


COMPILE TIME 0.10 MINS SPILL FILE: 11 RECORDS, SIZE 3491 


A8 
4} 


146 
56 


B4 
42 


14E 
57 


BC 
43 


152 
58 


CO 
44 


15€ 
59 


CC 
45 


168 
60 


Dé 
46 


174 
61 


PAGE 


DE 
47 


17C 
62 


OJLVNIWYIL ONTAG 


vusv ONG 
Vusy GNIGV 
Vusv GONIGV 


Sf. SS. 7 3 SE. <2 
Tdi) NITLIGSNG UL 


TIHD NOTLIVSNVUL 
TVHD NOTLIVSNVY! 


TOLTHAG 


GSOO¢CHAD 
SO00ZHAD 
SO0CHAD 


an a Dn i A | RO Sa ec ce a ee (i cr a 


i i i i ie ae A ee Oe SO 


TINATICN EXTRAPARTITICN INTRAPARTITICK INCEREC AUTLUF 


DFHTC a 
OFHTC IDENT CUTPUTS CUuTPUTS CLTPUTS TRANSACTION 
OFHTC INITIATION GUTPUTS 
DFHTC CSMT 3 

DFHTO CSSL 63 

DFHTC LOGA é7 

~DFHTC *#TCTALS*% 67 Cc - €6 0 
DFHTD NUMBER CF TRACKS USEC BY TRANSIENT CATA FCR IANTRAPARTITION 0 

CEHT Stee eee Sees ss eOt tHe Se Pee TEMPORARY STORAGE STATISTICS # FeO sees seesee ee sent es 
DFHTS NUMBER CF RECCRCOS PUT/PUTQ MAIN 0 

DFHTS NUMBER OF RECORDS PUT TO UNIQLE IO § 0 


DFHTS MAX VIRT STRG USED FGR RECCRCS 0 


¢ 


OFH2006 TRANSACTION CHAl ABEND ASRA AT CRLP 

CFH2006 TRANSACTICN CHCl ABEND ASRA AT CRLP 

DFH2Z0C6 TRANSACTICN CHP] ABEND ASRA AT CRLP 

CICS ELAPSED TIME IS 13 SEC RELATIVE CAY IS 0 

DFHKC OFC SHSHESESTESEOOREORESETASK COATRCL STATISTICS O0O00400deeeeeeeeseeeeeeese 
DFHKC PEAK NUMBER CF TASKS 1 

DFHKC NUMBER OF TIMES AT MAX TASK C 

CFHKC TCTAL NUPEER OF TASKS 4 

DFHKC BAX. NC. ACTIVE TASKS REACKEC 0 

DFHST FO eee sds s tases taste Oss essea STORAGE STATISTIC SAHe oes e eases esses eee see seseeses | 
OFHST NUMBER CF STCRAGE ACCUISITICKS 50 

DFHST NUMBER OF STCRAGE RELEASES 27 

CFHST * NO STORAGE VIOLATIONS # 


DFHPGPSFeee SSOP FESLESHSHSSSEHHRSSABISASTRANSACTICN STATISTICS SS ss sods eees tee 984FF4SSE4ESEEESEEE 


DFHPG TRANSACTICN PROGRAM TIMES TIVES TIVES ACO*L STORAGE TIME TO FING 
CFHPG IC NAME CALLED BY STALL- REQ*D FCR ISCLATED PCT ENTRY 
DFHPG TRANSACTICN PURGED TASK PACING (SECONDS) 
DFHPG CHA] CHPODAIA l 0 0.000022 
CFHPC CHCl CHEOCCIA l Cc 0.€C0147 
OFHPG CHP1 CHPCOPLA 1 0 C.C00234 
OFHPG CSMT DFHMIPA 1 Cc 0.000317 
DFHPG VOAHSTOTALS A408 4 Cc 0 


DFHPGHFeeeSa SSS FFE SSSSSSSEESEAEASISSSSRVEPROGRAM STATISTICS AE tSss esse sss eevee esses Geese se eeeses ees 


DFHPG PROGRAM TIMES TIME TC FIND 
PFHPG NAME PROGRAP USED PPT ENTRY 
DFHPG CHYCCALA 1 0.ccccod 
DFHPG CHPOOC ILA 1 0.000C00 
DFHPG CHPOCPIA 1 0.cocccod 
OFHPG CFHACP 3 0.CCO804 
DFHPG OFRMIPA 1 0.000C00 
DFHPG DFHJCSDJ l 0.000922 
OFHPG CFrPEP 3 C.cC1C20 
DFHPG DFRSTKC 1 0.001082 
DFHPG ‘DFRSTP l 0.001075 
DFHPG CFKSTPC 1 0.CC1C94 
DFHPG FOSSETCTALS 9 4Oe8 14 


DFHOPFSe eee eee dd Fes seS eee ssSSSSSDUMP STATISTICS 04444090048 000000800998488804% 
OFHOP NUMBER CF STORAGE CUMPS 3 


DFHTRESORSES SEE ESEREREDOREOSEEESSSSBSTERMINAL STATISTICS 09990999900080000004409600000000046060044 


DFHTR LINE NO OF TERMINAL INPUT CUTPUT TRANS- TRANS- TRANS- PIPELINE MESSAGES 
DFHTR IC PCLLS 10 MSGS MSGS PISSICN ACTICN ACTICN -~- NOT PROCESSED --- 
DFHTR ERRORS ERRCRS TOTAL GRCLPS PAX CONSEC 
OFHTR CCcO0l 0 

CFHTR CRLP 4 4 Cc 4 0 

@¥ICTALSes 0 4 4 Cc 4 Cc Cc 0 


DFHFLO9OS9SFSSSSECSHEETOTETHEHESSSSRHOHEILE STATISTICS 899900900009299080000044604039004 


DFHFL FILE SEGHENT SEGMENT READ ACD CPCATE OV°FLCk DELETE wWwAIT-CA-STRING 
DFHFL NAPE NAKE USAGE RECUESTS REC*STS REQ*STS RECORDS REQ*STS IYCTAL HIGHEST 
PEeE! Cl ASSES 3 Cc c 0 Cc 0 


CUSTCHER -INFORMATION CONTRCL SYSTEM STCRAGE CUMP 


REGS 14-4 


REGS 5-11 


TASK CONTROL AREA 


ccccea 
C00020 
000040 
cocdé0 
cc0cs8s0 


COQOAO 


q000co 


COCCEO 
0001CO 
000120 
C00140 


C00160 


ocosocco 


400034A0 


‘coocooke 
- 000C1416 


_ FEOOD4FC 


SOOEICFC 
C0000004 
ecoocecc 
C4C5C2E4 
coouc000 
ccocceco 


Coooccce 


TASK CONTROL AREA 


caccco 
Cccc20 
000040 


ccCCCé0 


ASRA 
co00co 


COCc020 


REGS 


BAO4O1FS 


— CCOFCCEC 


co080200 


cooco0co 


CaO00CcO2C 


800C1014 


SOQOEICFC 


COCOE2ZB3A 


coor3s5ec 
92COBCCO 
CCCCI2FF 


0c0c0004 


C3D3IC1E2. 


cooenoso 
OOOC1L2FF 
oo0cdcon 
C7Ic 7c 9D5 
000828190 
occcoocod 


cccccoco 


(SYSTEM AREA)AOCRESS 


COO08D4FO 
occccoco 
00co000d0 


oocoo000 


C THRU 15 


ccccccco 


C00C1536 


CCDE= 


PSh AT ENTRY TC ABEND 


ASRA 


TASK=CHC1 


CATE=76.191 


TIME=C9.25.456 PAGE 001 


O78D0C004 SOOCI4ILE 


0o008sD080 ooo0cc2c CCCCCCCC COCCI416 CCOE27D4 cccc1008 
o0gccod4 OOOCI2FF 8COC1IC14 000C 1536 000C 1008 cocc1co08 
(USER AREA) ADDRESS caposc Ta CeClFF LENGTK 000180 
O10E6B30 O0C000000 CCCCCCCO COCD25A4 BO4CLICC CO3ZICCAD Percccccccseccccssccescsccscce seocceet 
O00CO02D O000D35A4 SCOC2ZF2ZA AQOD3Z05C 00080000 90003442 F cee ccwccncccccreccsccsnccccvcee® 
8CCC1014 OCCC1536é CCQE3344 CCCC1CO8 400034A0 00088190 Prcccccccceccccccccccccce coscsee® 
OOQEZE3A COOCCO0N0N S5COC120A CCCE27D4 CCCC1CO8 CCOE2B3A Possess 6560 eben ese weesGMewescuee* 
E2C4E240 C1E2C9C1 O78C0004 SOCCI4IE acccccce CO0s8BbC11 Pr eMOCLASSDS ASRAc ccc cece cc ccccee® 
ooco0d2d cocacCcco CO0C1416 COCE2 704 COOCLOOS COOE2B3A Proce ccccccccccsccvccssecheccvccoe® 
800C1014 CC0C1536 ccocicoe ccecci00gs CCCccccod COCccCcCcoo Prwcccccccccrecccccceccsccsccccsce® 
24F00000 00000000 COCcOcO00O CCCOCOCO OCCE4014 CCCCCCCC PrccccccceDecccccccsccscccee secee® 
CI40C5E7 C1O40703 C54C6040 C3C6C206 D3404040 40404040 *#DEBUGGING EXAMPLE . COBOL * 
oo0codca occcccco cccceceo cccccece cecccccod ccccocoo Prccrcccccccccvcscesecccccsesccce® 
00000000 OC000000 ccCocoggo GCocococd aoccacco CCOCcCcCcoo Prcccveccecccccccccseccsccccccccce® 
ococoocd coco0ccod CCCCCCOO CCCCCCOO B8AOC4SOIFS COOBD4FO Herwccccccccccccccscccccccces che MOF 
ceopcco§ 10 C&8DCiF LENGTH cda0odgéec 
00080450 OOO08L5éED CCCccO2C COCE3344 O00sCQ4C CCCCCCCC Fae Be eM a eMacedocccccceccse cooet® 
ocaqc0co ccecoccco CCCCCO0O FECEQS8BC OOCCO000 0008D208 Prcccccccccccsccccccccscscscceeke ® 
ocococco cccoccca Cccccccoe cccceccco cecccocao coCcoCccoo PeeKeccccccccccsvccsccccscccescccce® 
od0a0co0dogd OCco0CcCOO Ccccccco cecccccc ceccccce coccccce Fecccccevccccccccccccvccsccssccce® 
ADCRESS 00353C TC C3578 LENGTH 0C0040 
OCOC1416 QCOE27ID4 CCCCICOS CCOEZB3A OCCCOCOS COOCI2FF PrcccccccccccceeMescccccccccccccc® 
0cC0C1008 OCOC1008 CCOCI2ZEC CocEdece CCCCCCOG CcCocedCcac PrcccccccccvccccccscscceKescccccas® 


080080 
0800A0 
ospoco 
O8COEO 
080100 
080120 
080140 
080150 
080180 
08D1A0 


0801C0 


O8D1E0 


08sC000 
080020 
08D040 


08t060 


00 35 3C 


00355C 


CUSTCMER INFORMATION CGNTRCL SYSTEM STCRAGE CUP 


COMMON SYSTEM AREA 


ccccoo 
cc0c20 
o0c040 
cCCC60 
ccccso 
CO0CAD 
cogoco 
CCCCEO 
000100 
C00120 
C0C140 
000160 
000180 
COOLAO 
ccoicc 
COOLED 
C002C0 
LINES 
OOCTEO 


coceco 


ccooca0c 
COOD35A4 
CO0C1536 
CO33CCOF 
COOF0418 
coocoaca 
001gsCc000 
400ED010 
QOOoCcFSC 
000E3044 
CCOELAFC 
QOOD2T2A 
COOFOCFC 
O7O0E58FO 
cooocaacc 
2C002C00 


coaccoca 


OOO07T4FIS 
SCOD2F2A 
CQ00E3344 
O0OASCOO 
EOFFOFOO 
COOsCcCcCco 
OQOOCOSBO0E 
CO0E4014 
COOC4I5A 
OO0O0E033C 
COODZEFC 
7F59C0CO 
OOOFOEOO 
DLOCOTFF 
ococooco 
oo00co000 


00000000 


C00220-CCCICC 


cooococo 


E261E5E2 


oo0c000n 


4OFSETF4 


ADORESS 


o0ccocco 
90003084 
000002£C 
OO88R6FB 
0cc00012¢c 
OCOFO62C 
OOOEFFAS 
000E18CO 
OCODOTA4 
Oo0EsSSsa 
OOOEGECC 
ooccocco 
oocococo 
0092642E 
001C001C 
occoocco 


oocco0cg 


4C0D34A0 
coosp00o 
CCOB8DOSC 
0C008494 
COOFOEBO 
CCOFOE2C 
00000C00 
COCEBOOC 
cc0p2780 
CCODD8A0 
ococng9ss 
431 BBED6 
CCOFCEL4 
OO9BGEIC 
ccco2co0 
occccooc 


oooa0d00 


SAME AS ABOVE 


occaocccc 


FOGCETE? 


occoccco 


F140 


CFOSSC 


CCCE=ASRA 


TG CFODSC 


S2CCECCC 
€COL3460 
CS25456EF 
cccc2cce 
coocco0n 
CCCe&C 4c 
CCCCCCCC 
CO0C2FOO 
CCCFOCFA 
cCCDBEIC 
OCOCEFFC 
CCIBSETB 
ccccccco 
COO5CCO0 
cC025C00 
CCCCCCCC 


ccecccccc 


cccceccco 


4CCD 3492 
cccccoso 
CCCCCOCO 
CCC7SO0BC 
cOcococa 
COCFC350 
CCCCCcoce 
COOEABCC 
CCOECBIG 
COCCEFCCE 
cocococo 
occoco0o 
cococccc 
CcOOcCOCO 
COOLICCO 
ccccccce 


cccccooc 


Ccccccoo 


LENGTH 


TASK=CHCI1 


92C 08000 
OOOCI2FF 
C7DC0100 
occFicce 
C00C6030 
COCFOOEO 
ccccocco 
CCOCD98A 
CCOEACLB 
occsAcco 
ccccocoo 
ooocooco 
occcocco 


E6D6D9D2 


ocococoo 


occccooc 


occcccco 


cccoc3cs9 


DATE=76.191 


OCO8O0E 


cccccc20 
B00C1014 
ooccocco 
0076191F 
coocecoa 
1000FFOO 
C3D5E2E3 
ocoDcc32 
00000794 
occcccoo 
cececcce 
oocoocce 
FFOFOE6C 
C1D9C5C1 
ocococco 
00000C00 


coccccco 


C3E26106 


TIME=C9.25.456 PAGE 002 


94 cscceieueGs- Sesecaw qaedaseeese® 
Pere er err re ere rer TE Te re Ts. 
Peceerccccccccreccccccrcccccenescet 
Vises n we wee os seoeses bsasseseees? 
ee Pa ee ee ee eee, 
Bi iaba see esa seated we eseeseenee® 
Po cccccccccccccccccccccccce ss lNST# 
© Seeds esse nese secesadseesRecawe? 
Ciécs sie eesucescGwawseeceeecsewce® 
Pevua added esas Cows eee ee oeee ee aee® 
Pcie eebseeuwes Nee saewseessesease® 
Cawca hic eons sOeees esueeeseesua® 
See RE COREE UE Ce Oe re ee 
$s cc OSsoseisicceneese se sees WORKAREAS 
Pee Cee ee Oe Ee a. 
Nawteieuwe so wsenseceseeegooesesuas® 
Dicacwe had 66 Sb seee cess eee oceeeesee* 
OFO780-OF0D50 


Bbc CC4S COO 08 06 O04 eee eG LES SUF 


*S-VS 574C.XX1 * 


0F0590 
OF 0580 
OF O5C0 
OFO5SFO 
OFO610 
OF 06 30 
0F0650 
OFO670 
OFO0690 
CFCSBO 
OFO5CO 
OFO6FO 
OFC710 
0FO730 
OFO750 
OF0770 


OFO7T90 


OFCD70 


OFOD90 


C a ¢C 


CUSTCMER INFORMATION CONTROL SYSTEM STORAGE DUMP CCDE=ASRA TASK=CHCL CATE=76.191 TIME=09.25.456 PAGE CO3 
TRACE TABLE ACCRESS oO0012C TC CCCTEF LENGTH CCC650 
CCCCCO CCO0DC270 OCCDO130 00000760 00000794 FCOEZTGE 20COCO2ZC IIOCCCCOO COCCCECO — Fosse erence rece re Oeeeccreececcccet ( oco1za~ 
000020 FLOE28FO BCCCCO2ZC 000C0238 010E6830 C8CESIS5SE CCCCCO2ZC OOO8D200 BCOCO24B = FL Deere cccvccccHecccccceeKescce® ~ 900140 
Co0040 FS5UE2C8E B00000aC C3IDICIE2 E2C4E24C FICCFAGA SOCCCC2C CCCROCOIC CLOEBEIC  F5ecceeecCLASSDS Lescccccscccseee® OCC1é0 | 
—CCCC6O )§=—C8DE415E 0000002C 00080450 9£080028 FLOCFSAA BFOCOCO2ZC OCOBCOEO CLOEGBIC = FHecacecccaMecccel Beccccccccccce® 0C0180 
CCCC80 } «= CB8OES15E OCOCCO2ZC COOkD480 BFORC0ES FCODETAA 4CCOCO2ZC B0CCOO0D COOBD490 = FHeccccsaceMeceeeD Xo cocsecesehe® OCOLAO 
COCOCAOQ FILODFB8AA 8FO0002ZC OO0800EO 010EE83C CACE4SISE CCCOCO2C CCOBD4FO BFOROCOB = FL. BeccccccccccccHecesscceeMOceee® 0D01C0 
QOCCCO FIODFAS2 4C00002C 00080450 010£6830 C90E4248 OOCOCO2ZC COCBD45O SDOBCOC28 = Flees cece cMeccccleccccccceMeccee® OCOLEO 

—CCCCEO FIODFAS2 4C00002C 00080480 010€6830 C9CE4248 COCOCO2ZC COO8D480 BFOBOCEB = Fleece cecceMeccccleccccccceMeccce® 0002Cc0 
COO100 FLOE2ZC8E 8500002C 000C0032 010£6B3C CACE4SISE CCCOCO2ZC CO0RBIIO BSOO0CSB = FLaccccscccccseccHecsscccsccesenc® 000220 
CO0l20 §=©F200C0CO 6000002C CLE2D9C1 OOCODCOD F4QEICFC FECOCO2C OCOCCCOO CLE2ZDGC1 = #20. eee ASRA ce we 4occccccce cc ASRAF 000240 
000140 fFOOD34AC 4CCCOO2ZC BCCCOCCeE CC0035A4 FOCCOCCO CO33CCO2Z OO33CCLO QODOOLOC  F0.cn cecccccccccccccscccsccccvect® ODC260 
CO0160 FO0D34A0 4000002C s0ccOocce CCOD3SA4 FCCE2416 20CCCOIC FFCCCO00 COCCOCCO  F#0..e sccccccccccDeccccccccccscec® 000220 
CO0180 FOHE2Z5D08 4000001C 800CO00L QOOE2E60 FDOCOOQO OC33CACA OO33CACA COCCOOIC  F0..Q sevccccccncccacccccccccccce® 0DO2A0 
QOO1LAO FOSE276E 200COOIC 110CC0CC cccoocad F50C5C34 BCCOCOIC C3C3CIE2 E2C4E240 FO. ce ccccccccccceSeccceseCLASSDS *# cp02Cco0 
COO1LCO FLOCFAGA 9D0000IC OOOCOOIC C10EEB3C COCE41ISE CCCCCOIC CCCED2ZCO SDCCOC28 = FLeccccccccccccccHosescccesKeccee® O00 2EO 
COCLEG FIODFSAA 8FCO00IC 000C0060 010E6830 CBOE4I5SE OGCCCOIC COCED23C BFOCCCEB = FL eB cccccccsccccHece cccccekescce® 0C0300 
CCO2ZCO =©FOOLETAA 4CCCCOIC 80CCO0CO 0008240 FLOCFSAA GFCOCOIC OCOOCO0GD OLOEGB3I0  F0.X. cecccccceeK LeBacccccccccces® 000320 
CO0220 CBOE4SISE OOO00OIC O00aD2ZA0 eFOCCOES FICCFAS2 4CCCCOIC COO8D200 CLOEGE3O0  F#HeccccceceKecccclece sesccKeccee® 00340 
CCC240 C90E4248 COO000IC OOOsD2CcO YCOCCO28 FICCFAS2 4CCOCOIC CCOED230 OLOFEB30 =F leccccccceKecccclece socceKsccee® 000360 
000260 C90E4248 COCCCOIC 00080230 SFOCCOES FLOCSC44 BS5SCOCOIC 00080032 OLOEGB30 = F#leccccceceKecccclecccccccccsccce® 000380 
CO0280 CB8DE4IS5E OQOOQOOIC 0008B190 escaco4se F2CC5C44 ECCCCCIC CLE2ZDICL OOCCCCCOD = FHecccccccccsccce2ccc cc csASRAscee® ODC3A0 
COC2AG F4OEICFC FEQO00IC 00000000 C1E209C1 FOOL34A0 4CCOCOIC BCCCOCOO COCD35AG = FH cece eee e ec ASRADe ee ccccccccece® 0D03CO 
0002CO FDOCCCOC OC33CAET OC33CAEC CCCOO2IC FIOE2Z3C2 BBCCCOIC COOBOLBC OLOEEBI0 HF eccceeeXeccccnccle sBecccccecccce® O003E0 
QOO2ZEO  C8OE4SI5E OOOOCOOIC OO0C4OCC eecoicco FCCE241E6 2CCCCOIC FFCCCCGO COCCOCCOO «= F#Haccccccce cece eDnccccccceccccee? oc04CcO 
C003CO FOOE2Z5D8 4COCO01C 800C000C COOE2ZE60 FOCCOCOO O033CAFS OO33CAFS COCCCOIC  F0..0 ccccccscccccccccceI ee eI nc ce® 000420 
C00320 FOOE2Z7T6E 2000001C 11000000 Ccccccco FICC4230 ESCCCOIC CC4CCCSC CLOEGE3IN FD ccccccccccccsacleceVeces cocccet® 000440 
CCC340 CB8OE4I5E OO00COIC O00B8BI1EO 85400068 FCOCSSB4 OBCOCOIC OOBSCCOO C20EGBR30 = BP -~ cc cccccccne cocvcccccccccccnccd® 000460 


CUSTCMER INFORMATION CONTROL SYSTEM STORAGE DUMP 


+ 


TRACE TABLE 


COC 360 
CC0380 
0003A0 
coc3co 
CCC3IEO 
000400 
C0C420 
COC44C 
000460 
Cccc4eo 
0004A0 
CO04CO 
CCC4EO 
0005C0 
C00520 
CCCSA4C 
CCCséc 
co00sso 
COOSAO 
CCO5CO0 
CCCS5EC 
ccoéco 
CCCE2C 


CCCE4C 


FCOEACFA 
F10E7102 
FOOE7686 
F20C4348 
C80E415E 
CBOE415E 
FCOE25C8 
FOOE2ZT6E 
FLOE2CSC 
F10C4380 
F60C4308 
F20C470C 
D80ECBSO 
C90E4248 
CIOE4248 
CIOE4248 
FIOETCGE 
FOOEAEDC 
FLOEDBOS 
FLOECB42 
FOOEABCC 
F10€23C2 
FOOE2416 


FOOCCCCC 


400C001C 
4COCE3C3 
O800E3C3 
B81LOCOOIC 
occCccoICc 
ooCcoooIC 
40CO001C 
2CCCOoOoIC 
4000001C 
EDOCOOIC 
40c00c01C 
10cco0o1Cc 


ooccoolic 


ccoo02c3 


Co000c2c3 
OO00E3C3 
E5O00E3C3 
4COCE3C3 
EAQOE3C3 
El1Q0Q0E3C3 
4Q00E3C3 
8B00002C 
2000002C 


OC33CBE9 


ACERESS 


10000000 
OCOeEBLEC 
oO0ceoddEgsO 
C4C6C807 
0008D2C0 
000C30C0 
80000000 
110C0000 
o0008D2C0 
00400046 
oo008sD2Cc8 
C4CéC8Cl 
02000208 
aqoodspcco 
ocoscoco 
0008B190 
00000102 
4cccocco 
OCOCOCOILES 
oo0cocd3e@ 
400000C0 
000Cc02Ca& 
FFOOOO0O 


0033CBFO 


QOOEZE6O 
8COEEBI0 
ccccccco 
C€5074040 
89080058 
88001C00 
OOOEZE6O 
CCOOCCCO 
O1OEEBIC 
010E6630 
C3IE2D4E3 
C3074C40 
00000000 
SAO4SCIFS 
81000040 
85080048 
800E6B30 
CCCE6BCO 
800E6B30 
8COEEBIC 


QOOOE6BCO 


OLOEEBIC 


ocooco0n0 
ocacco2c 


COC12C 


“~ 


CCOE=ASRA TASK=CPC1L DATE=76.191 TIME=09.252456 PAGE 004 
TC) COCTEF LENGTH - CCO65C 
FOOEAPBCC 4000E3C3 4CCCOCOO CODEGBCO #0 .ee secccsncccsDvee oTC seccccet 
CICE424B8 COCOE3C3 COOBBIEO B5400CEB8 Floss eTlecccccsclecccelCosces cof 
FCCEABDC 4CCCE3C3 SOCCCCOO OCOEGECO #060. ce TlaseccceeDoae 0Tl ccccece® 
FICEICCG BSCOCOIC COO8CO4C OLOEGB3I0  #2eeeee ee DFHPEP LecFecccccsccece® 
FLOE23C2 BBLOCOIC OOOB00TE OCLOEGB30  FtHecececcceKecccalesBaccccccccvcet 
FCCE2Z416 2CCCCOIC FFOCQOCO O0COOCOD FHesccscesccccsecDcenccesccesecce® 
FOCCCCCO CO33CBEC OC33CBEC COCCOCIC F060 coccccacccccccccccscccccccct 
F2CC33S5E 1COOCOIC C4CECBDT C5D74040 = PDnccccccccccccce2eccccesDFHPEP # 
CSCE4248 CCCCCOIC COO8D200 89080058 = FLese cece cKeccccluscccccecKecece® 
CBCE4ISE OCCOOOIC COOED2ZCO BD4CCO5B = FLesccccee coccccHecsccccseKes oof 
FCCDCEA2 4CCOCOIC 200C0000 OODEZEGO 64.0 cree eK eCSMT0cee cocccccccee? 
FCCEIFBC @CCCCOIC CCCCOCOO CCOCOECOO «= #2eceeeeeDFHACP Occccccccccccces? 
FIOECF94 4AQOCZC3I CCORDOCO OODOOCOD 8QeccccncecKecccclececcKCensccccet® 
FIOEDFAG 4CCOL2ZC3 OCOOBCO00 OOCOO00D Fleece cKCoccccecBlecs eKCeccsecee? 
FICETIE2 ECOCE3C3 OCCCCOCOO BOOEGB3IO Fleece eKCeccccee LeceseTCocsaee rs? 
COCE4248 CCCCE3C3 CCOBBCCO BSCCOLIG «Fleece TleccccccclevccelCosscecce? 
CBOESIS5SE OOCOE3C3 COOBBOOO B5000LIB FleeeVeTCesccccccHeceselWosccccent 
FCCEA3EE LICCE3C3 OLOEGB30 C3CBCIFL  F0.ee oT ceceeeeDeoWoeTCoeeeCHCl* 
CECESI5E COOOE3C3 OOOBDO0O BADSOIFE  P*leeecelWCaceLecacHecsceIConcseeed# 
CECE4I5E CCCCE3C3 COCECCOO BICCOC4O Flees eeTCacccccecHecccelCocccces *# 
F2OELB0O O2COCO2ZC C3CED4D6 C4C3FICL 40sec. TC cocccce2eeeceeeCHMODCLAt 
CB8CE4IS5E CCCOCOZC OOOCICOO BBOO2ZCOD = FLecBocacccccccccHevcccccccseccee® 
FCCE2Z5DE 4CCCCO2C BCCCCCOO COOEZEG0 FO cacccseccccccesDeed esccecccccat 


BrcccccsleccQeces * 


0c0480 
0DC4A0 
oDo4co 
OC04EO 
0p0500 
000520 
000540 
000560 
0p0580 
ocesA0 
opcsco 
OcOsEO 
000600 
000620 
0D064U 
000660 
000680 
oDC6AO0 
OD06CO 
OCO6EO 
069700 
0p0720 
000740 


000760 


CUSTCMER INFORPATICON CCNTRCL SYSTEM STORAGE DUMP 


TRANSACTICN STCRAGE-FILE 


ccccce 


000020 


CCCC4C 


Ccccéo 


ACCRESS 


FPFOBCCESB COOeD2CO CCOCOCCO CCODLCBAO 


ESC8CIE2 
C9C ‘C306 


40404U4C 


40C9E240 
D9C4405C 


cocccoco 


TRANSACTION STORAGE-USER 


CCCcCcCco 
CCCC20 
000040 
000060 
Cocoso 
LINES 
0001A0 
cCooicc 
COOLEO 
C00200 
CO00220 


€00240 


TERPINAL 
ccccca 
CCCC20 
000040 
COcCcéa 


coccoeod 


8CO0C0248 
ccoccoco 
COOCIS53E 
n0000000 


coo0caco 


cooscodo 
5COE1LB3A 
ccoc1008 
244E0000 


caccco0o 


CCCCAO-CCC180 


coo00coo 
COt 21578 
coodocdc 
00000000 
C1IOE6B3C 


OodgcCcCCC 


00000000 
E2E8E2C6 
ccoo000co 
00000000 
cC086190 


ococccco 


CONTRCL TABLE 


C309D307 
Ccoccccc 
000c0000 
oconoco2c 


010€045C 


18FCO004 
0CF04040 
QOOEG6ACO 
coocsccoo 


ccoccoco 


E3C8C540 
5C5C5C40 


8FO80068 


ADDRESS 


00300000 
OOOE27TD4 
0C0C1008 
00000000 


000C0000 


CSD5C9E3 
40404040 


Ccosct2co 


OOOE20TC 
0coc1008 
CCOCI2EO 
00000000 


ocooocod 


SAME AS ABOVE 


occoo0c00 
E4E34040 
o00cddCcad 
ooocccco 
00000000 


8C0C0248 


ACCRESS 


0008B190 
O0Ccco1CcCe 
QOOQE6BAC 
00200000 


C1C100C0 


00000000 
—£30C00008 
occcccco 
ccccccco 
ocdo000d 


Ccasccca 


ooosecaoo 
coccccco 
occcccco 


00020000 


O8C4FO 


08D2C0 


CEEB3SC 


CCDE= 


TC O8C55F 


ASRA 


LENGTF 


Poa 


TASK=CHC1 


DATE=76.191 


ccco7c 


CO54CCOO0 C3CBFOF] FO40405C 5C5C5C40 


CSC1I034C C4C1lE3CL 40CSD540 &3C8C540 


4C4C4C4C 40404040 4040404C 40404C4C 


TO Ce&D4A4F 


ccccccce 
CCOE2ZB3A 
3CC2AC4B 
CCOCCCCC 


cccccood 


Ccccccco 
co0c1c90 
CCCCCCCO 
Ccce0410 


80088011 


TG CEEBBB 


SCCC1I3CA 
CCCOC004 
ccCccCcccc 
CCCCCCCC 


cococdoda 


Cccccccc 
oocaoccod 
cococadd 
CCCFCSSIC 


oococool 


CCCE2ZA4E 
OOOC12FF 
occcocod 
cCcccccco 


acoccado 


cocc1icos 


ooccccad 


coocoo0d 
occcocod 


cocco00d 


LENGTH 000250 


.O0cccc20 


BO0C 1014 
000C1330 
CCCccccoo 


coo00Ccdd 


CCCOCCOO 
coccccca 
oodgdgocod 
coceocso 


ccCCCCcCcca 


LENGTH OCOO8C 


ccoscoso coccccoc ccccccco coceccccc 


ccccccao aococodd ddcccancd OOsCOCcco 


CCCCCCCO CCe4COlC C1CCOO2ZC CO00ICOCO. 


ccceccecco cececccce cecccccc iccccccc 


TIME=09.25.456 PAGE 005 


* J 60e sah eiies see Censne CHO ld @aeesse * 


*TtIS IS TRE INITIAL CATA IN TERE * 


#RECORD ecco * 


* Tere ee ee ee * 


Prccvccccccrccccsesccsccscccccscsce* 
PocccccvccceMeccscvccccccccscccce® 
Prcccccccccccccccccccccccscccccce® 
Prccccccccccsccccccccccccccccccccs® 
Pecccccccccccccsccccescccecsccccce® 
08D2A0-08D380 
Feccccccccccccccescccssccesccccces® 
BPeeeeSVSCUT Teccccccccccccccccce® 
Brcecccccccccccccccccccccsccccccc# 
PrcccccccccccccccceMsccvccccccccet® 


Brccccccccccccccccecscccsccsccences® 


Sicdweese es 66660 4% * 


PORLP iO cn tee ss Cw eect esses sccwancs® 


Feoeee ed 


Terrrerrerrrrerrerer eer re ft hs 


ee ee ee ee ee ee ee ee ee ee ee ee ee a ee 


Bomar aceseceeecsesséseesessatcosseac® 


BPrcccccechAca * 


O8C4FO 
08D510 
080530 


08D550 


08C200 
080220 
080240 
08C260 


08D280 


0803A0 
0803CO 
08030 
08D4CO 
080420 


080440 


0E6B30 
0E 6850 
0£€ 6870 
0OE6B90 


OE6EBBO 


CUSTCVER 
TERMINAL 
cocccc 
000020 


cCCC40 


TERMINAL 

oadocdo 

CCcc20 
LINES 


000100 


4 


INFORPATICN CONTROL SYSTEM STORAGE DUMP 


STGRAGE 
650CC048 CO08BCCO 
cooco00d 0O0d0CNN 


ccocccoo coccooco 


STORAGE 

85000118 OO0E6B34 

coooccco ooc000co 
CCC040-CCOOEC 


ooooccce CCcococco 


ACCRESS 082190 
000C6040 CCCOCCCO 
oo0gcggcco CCCCCCCOE 


85000048 CCOBsECCO 


ADCRESS O8F000 
OQOL10cCCC C3C8C3Fl 
oo0c0c00d dCddOdCcoN0N 

SAME AS ABCVE 


gogococca CCCccccco 


+ 


CODE=ASRA TASK=CHC1 DATE=76.191 TIME=C9.252456 PAGE 006 


TC QOS8BICF LENGTK CCCC5C 
CCOCCCOO OOCOCC0G ODOCCOCOO CONCOC0O 


cccecccce cccccece accccoco coocccoo 


TC O8Bl1F LENGTt 000120 
4ACC3CEFO FLFCEIC3 C8FOFIF5S 7C0CO0C0O 


ccccccce cceccece ceccccoc Cccccocco 


CCCCCCCC CCCCCCCO S5CCOL1IB DOOE6E34 


BPeveccecseces errr ree eT ee ee ee ee ee 
ee ee Se ee ee ee ee ee Se ee ee 


rrr errr rere ee Tee * 


#ecccccsccce eC HC] CHOIO.CHO15....* 
basa us oad Bicehnlae cctceecaes 


08B04C-O8B0EO 


Becccceecesesessenesecccnesecsceet 


088190 
O8B 160 


088100 


O8BCCO 


088020 


0881C0 


CUSTCMER INFORMATION CECNTRCL SYSTEP STCRAGE CUPMP 


a : 
; 


PRCGRAM STORAGE 


coccco 
Cocc20 
C€00040 
ccccéo 
co00s8o 
COOQAD 
o0dg0co 
CCCCEO 
000100 
LINES 
C00240 
000260 
000280 
LINE 
ccc2co0 
COO2ZEO 
CO03CO0 
C0032C 
000340 
COC360 
CQ0380 
C003AC 
C003C0 
QO003EO 
COC4CO 
000420 


000440 


SOECDOCC 
96021034 
00051330 
Coocdcas 
ccocccce 
CO3J0CCCO 
o0g0dgcco0nnd 
CcCoCcccco 


ooogcCcccc 


185D05F0 
CTFE41F0 


OOOC14FE 


OOOC12FF 


C00C 1260 
CCCE2DIC 
ococo000 
cooccaco 


Ocaccecae 


000120-000220 


ococcccc 


cacca0c0o 


ACCRESS 


4580F010 
OCOLOTFE 
Ooccod2c 
800C1014 
4O0F9I4BF2 
occcoocc 
o000000CO 
2002A04B 


ococcoca 


C4C5C2E4 
CC0C1536 
CCCC12E4 
00001536 
FI4BF4F1 
ccececccco 
ooccocco 
ooaccooo 


ccccccad 


SAME AS ABOVE 


ooco00ca 


E4E3404C E3CCCOCS OCCCICIC 


00000000 DO000000 OOOCOCCcO 


CCC2A0 


coocccca 
COOEZA4SE 
C4C5C2E4 
C6éC9303C5 
S8FOC218 
E064C04)1 
D21C411C 
40FOCO5C 
C2C3IECFS 
FOS8O58EC 
D22C095C6 


58E0D214 


C020C2C1 


SAME AS ABOVE 


ccccooco 
000C1606 
C7C7Icges 
D7D906C3 
0203€014 
9240E08B 
E£0115010 
58FO0188 
FOE41811 
021402C3 
E0250772 
5A30E120 


EO0SCCO21 


00cc00-0 
OCOC14S6é 
C740C5E7 
S5BEOD2C8 
FOOC58EO 
D201EC80 
02289680 
50COFO8O 
964C0049 
EL24EC5C 
5810C010 
10335030 


5@FOD2CC 


ocgogood 
Cccccccoo 


CCCOccCca 


ccccoo00l 
CCCC1416 
C104C7C3 
5@FOC20C 
02140218 
C020€201 
D2284110 
58E00214 
58FOC008 
5@ECD208 
O7FL58E0 
E12C58EO 


C203E0FB 


cc10ce 


CCOE= 


TG CC2C3F 


C7C7C905 
cccc1008 
SCCEIBIA 
cccc1coe 
CLE4C34C 
ccccccco 
CCCCCCCC 
ccccccoo 


ccccocod 


c00C1008 
ccccccco 


CCCCcCccco 


ccccccoo 
CCCC14CC 
C€54C6C40 
C2Cc3ECOC 
E1CCC028 
ECSCCC21 
C228964C 
C2C1EC5C 
OSEFS4BF 
S8FCO214 
C22092C7 
02140206 


FCFeSeec 


ASRA 


ESE2C9F1 
cocc1008 
CCCE27D4 
cecc1cce 
40F96B40 
cccococe 
cccecece 
C00C 1330 


CCCCCCCCE 


aqococcoo 
cccocodd 


CCcccccc 


cCccoccoo 
cccc 1008 
C3C6C20E 
FO4C58F0 
S240E115 
Se@FCO2CC 
CO04958FO 
CC230201 
CO04940F0 
C2C3E014 
EQ25F872 
E084C041 


D21C411C 


LENGTH 


a 


TASK=CHC1 


C700989F 
COOC12E0 
occc1c08 
CCCCI2EO 
FIFOFTF6 
ococoo0d 
CCCCCccce 
ccecccccc 


eccccodd 


ccccis78 
g00co000 


CCCCCCCO 


000C16D2 
acccooss 
D3C303C1 
02140203 
D2CS5ELLA 
D2C3E0F8 
COO80SEF 
EQSECC24 
DOSC58FO 
FO5C5820 
C1iFBE026 
92406088 


EC175010 


DATE=76.191 


001038 


FO24Q07FF 
OOOC1LOAB 
QOOE2BR3A 
ccooed2cea 
oo0gcdcod 
oocoocond 
cocccceo 
coococogo 


oo000c0ocdd 


E2E&E206 
o000g0c00c0c0 


ccccccoo 


OOOC1ED2 
0032C2CO0 
E2E2C4E2 
EQLOFCCS 
E1190206 
FOF e@58E0 
S94BFDC49 
58FOD2CC 
01885C00 
CO1458E0 
4F3CD1F8 
D201E080 


D228S680 


TIME=C9.25.456 PAGE CO7 


BracceecQ eO-CEBUGGINVSRI..2.0..-*% 


PreccceeDeccccesccsecccscccccccce® 
PrccccesGvcccsesUsccccecMecccccce® 
Pecccccccvccvccccvcsesccccccscceke * 
Pecccecee GoAlLe4IJJL 9. 1976....* 
Prcwccccaseccsessccccesesccscccce * 
Percccccrscccccsccccccsscccsesccse® 
Prcccwccccccccccsccccccccccscccve® 
Pecccccsccccccsccccccsccsccscacccn® 
0C01128-0C1228 
Percccccccccccvcccccscccccccccc I VSO 
PUT Teccccccccvcccccccccesevesce® 
Pecccccccccccscceccccccccccesccce® 
OC12A8 
Poccccccccccccccccccccsccccc eke en cK 
Preece eDecccccvvcsccccccsccsccccce® 
*DEBUGGING EXAMPLE ~« CCBCLCLASSOS* 
*FILEPROC..K..OK KL 0000K.K.. 00% 


PrOK Kee eDe a cK eKeccece eoKeseeneK. * 


Peccee eoKevceeKeveoe OK.K..808..% 
BMKeceeeeeKe ec eKeceKee ce eDecscccee® 
BF Dee eDde ee Dee eK aKo ee eeKe ree -OK.# 
PK. eBQU eee cee De eccccee 06--05...¥% 
PD ee eK eKe cece eM eo cOKeKeweDe cere ce® 
PK eFecwcccccc locke 06028. 58..2..58* 
eoKeoe ® 


WieKws osseew be owe Ke Khs ace ure 


Wa ~“Keweee cD KeKe e808 ec eKecccceeK eee * 


e 


0c 1C08 
CC1028 
0C 1048 
0C 1068 
0C1088 
OC 10A8 
OC 10C8 
OC10OE8 


0€1108 


001248 
0C12€é8 


OC12€8 


0C12C8 
OC12E8 
0C 1308 
001328 
0C 1348 
0C 1368 
0C 1388 
OC13A8 
0C13C8 
0C13E8 
0C1408 
001426 


CC1448 


CUSTCWER INFCRPATICN CCATRCL SYSTEM STCRAGE CUMP 


“ 


PROGRAM STORAGE 


000460 
000480 
CO04A0 
C004CO 
O004E0 
C00500 
C00520 
000540 
00560 
000580 
0005A0 
cocsco 
COOSEO 
c00600 
COC62C 
CCC640 
000660 
cccéeao 
CCO6A0 
C0O06CO 
OO06EO 
c0c700 
000720 
cC0740 
C00760 
000780 


CCOTAO 


D2284110 
58E0D208 
O20CC2C3 
5O0DOFC8O 
S8D0DC 04 
FO2ZE582) 
SB8FOCCCC 
58E00054 
504010CO0 
COd0Cccca 
oo0000g00c0 
CO0CCOCC 
COOOCOCC 
00000Cc00 
cooocccc 
cooccoco 
FSF TF4FC 
F4F5FTF4 
C8E34CC9 
COOCCCCC 
582052CE 
504A478&0 
9140004A 
52E6962T 
D1IB8914C 
“NDC41CC 


ee a : C6 


D2289640 
58FO00214 
EOFSFOES 
58FOOLEO 
980CD014 
D1889140 


OSEFI2CO 


OTFE9620 


87165000 
coocooco 
00000000 
coocco0n 
occccoco 
00000000 
coccocco 
ococooco 
60C3C2F1 
FO60C3C4 
C20440C3 
ccoc19B8 
584052CA 
50624BE0 
47805062 
F2F65810 
20024710 
4CBC4T7FO 


C4E2CTFEO 


ADCRESS 


D04958FO 
02C3E018 
12119640 
JO0EFO48 
5 8EODCCC 
D04947E0 
07899610 
D04841€0 
58E0D054 
ooococce 
000C16C2 
00000000 
ooccooco 
00000000 
oocoocco 
ooccooco 
40C3DECT 
FIGBF2F4 
06090748 
OCCC47FC 
58F05202 
52060503 
96011CCO 
F2CAOTFE 
40A49104 
4CC4C9D3 


04091255 


CCOS8C5EF 
FC8058E0 
CC4958FC 
05F09110 
C7iFESCDO 
FO2E9604 
DO4805F0 
CCC44110 
O7FEO0O00 
occcocco 
occcocce 
oco00000 
occocco0 
occcccoo 
ocoo0coo 
occoocao 
Ee€D9C9C7 
FOF3FTFT 
40OFLF9F7 
FCCC47FC 
056FD503 
—EC005052 
591052CA 
SOFOF 306 
26004780 
C2D0604E2 


417040E8 


oc1iocs 


CCCE= 


TC 3 OC2C3F 


94BFDC49 
02140201 
CCCECSEF 
[04847E0 
§C085C50 
2CCCSEFO 
91200048 
CC104170 
acocccoo 
CCCCCCOO 
ccccccce 
ococccoo 
Co0sC208 
ccccccce 
CCCCCCCC 
cccccecoo 
C8E340C9 
FSFIFSEC 
FSFSFTF4 
FCB8A4TFC 
5320E£2EA 
47705062 
478C5C72 
4BFCF2D8 
410C58FO 
C7FC4110 


S8EC43CE 


ASRA 


4CFCOCSC 
E08OC026 
S4BFD04S 
FOOES8FO 
COC4SSCEC 
ZO2841FC 
4 TEOFOLE 
CC2cCcé7C 
COCC10A8 
cococces 
cccccooc 
cococo0e 
cCOCcOCcO0O 
ccccccce 
ccccccece 
cCcocgD3 
C20440C3 
6CC3IC2F1 
FO60C304 


FCTASOFO 


4TEOEC5SS | 


§0100168 
£01052CA 
4TFCFCIC 
42C212FF 
CCCCCADS 


CTFESSEC 


LENGTE 


TASK=CHC1 


58FCD1B8 
D2C7E084 
4CFCDCSC 
COCCCTFF 
b0549120 
FCC4CTFF 
S8CCB048 
05505840 
c903C2D6 
ooocccco 
cecccceo 
coocceco 
000C0000 
cocco000 
ceccocoo 
C206C3D6 
D609D748 
40C 3D6D7 
FI6BF2F4 
F30E90E7 
58EC52E6 
41FO05CE2 
960152E2 
9CECF30E 
478040B4 
18FCOS6F 


2:: GEO 


DATE= 76.191 


001038 


5000F ORO 
CO4858FO 
58FCD1B8 
48FODC5C 
D04847E0 
94EF D048 
982DBC50 
LOCQ1E4B 
DSE309FO 
ooo00coe 
coccccoo 
coccccoo 
00000C00 
COOCLESA 
coocccco 
04400600 
4OFLFOFT 


ESD9SCSC7 


FOF3FI7F7 


F2E6185F 
D503ECO0 
5éFCCCOO 
180498EF 
184F5@20 
O5S6F47F0 
45004004 


420C4@EE 


TIME=09.25.456 PAGE 008 


Ki we Kes eel ease wees OveeOJeeeIe * 
Hee cOK Ke cc Ossec Kako uses owes ec0® 
KK eBOV eee (¢ D0 cece we Oe 0.--e0J.* 


Ree Oval bewe Oe cOsiwecees 0660s cee Ovn*® 


Prerecccccccccccccsccccsccscscccset® 
MQ ce dee eve eDe eevee ee eID eevee e® 
PeQecwccccccceseNocccecDeseveccee® 
Faccccacascccccccsccsccccece coe? 
He cccccccccccccccescccce LLEQNIRO® 
BPeccccccccccccccccesecccccccsccce® 
PrcccceccceeKecacccescacsecccccscce® 
Prccccccccccecsvccesccscccsccecse® 
Pecccccccccccvccsceksccccccscscee® 


RPocccccccsecsccscesecsesessecccecer® 


ree ee Tee ee ee a ae ee a ee ee ee a ee a ee 


PrccccccccccsccccccesecILBOCOM ..*% 
*5740.CBl COPYRIGHT IBM CORP. 197% 
*45740.0¥1.2403775740.CB1l CCPYRIG*# 
*HT IBM CORP. 19755740.LF1.240377% 
Preece ccscee 00. 00. .00.-03. -X2N * 


coed eKeeNeccccccseceetNeoe® 


Brcccse 
Ferrer rerrerrurrrrrerrrerre rr ier esr 


*, Vrrrrre eT Cee COT eC CO ee et 


BW Phe ete eceeD eeA2ZQeOD ec edeccce® 


tJee exec ® 


ea@esd Ces areeneeUeKhece« 


* @ee 


220 DILBOMSGO cc ccceeDecene * 


*ILBCMSGOccccce Vee 60 600666 &s cae ue 


0C 1468 
0C1488 
0C14A8 
0C14C8 
0C14E8 
0c 1508 
0C1528 
0€1548 
0C1568 
0C1588 
OC 15A8 
OC15C8 
OC15E8 
(0C 1608 
0C 1628 
001648 
OC 1668 
0C 1688 
OC16A8 
6” 16C8 
OC1OESB | 
0C1708 
0C1728 
0C€1748 
0C1768 
OC17E8 


ey: 


CUSTCMER INFORMATION CCNIRCL SYSTEP STCRAGE CUPP 


C 


PRCGRAM STORAGE . 


coo7co 
COOTEO 
C00800 
C00820 
000840 
C00860 
000880 
CO08BAN 
occseco 
COC8EO 
000900 
C00920 
000940 
000960 
co09e0 
COO09A0 
Cocgco 
QOO9EO 
COOACO 
COCA20 
LINE 
Q00A60 
COCABC 
COQAAO 
OO0ACO 
COCAEO 


cooscce 


000040E0 
414258E0 
414°943E 
5009CCCB 
426CCO5C2 
20561874 
426CD05C2 
20541877 
42025035 
30304780 
070342C6 
4100425A 
3070C7&8 
FO064100 
20045800 


OODCLF4A 


C00C 1578 


cogocaca 
coo00co00 


FFFFFFFF 


OCCA40 


FFPFFFEFF 
E209E54C 
C8E34CC9 
000047FO 
41100000 


1244477C 


DOSCI2EE 
20384BE0 
200241 FF 
509D0004 
42063065 
4580426C 
42063075 
4580426C 
02144115 
42265035 
42C694FE 
41F04262 
92801060 
E0089140 
D00458E0 
00000000 
CCOE2ZTO4 
00oagc0c0co 
00000000 


FFFFFFEFF 


ACORESS 


47B0410C 
420C48EE 
OO1COSEF 
L@LLOSEF 
47804186 
07072058 
4178041C6 
05024206 
02141874 
02149280 
420E9101 
C9C3C2C6 
OA141277 
FOO44TEC 
DOOCIBCC 
00060008 
000C1008 
ococaocced 
ooocaoccc 


FFFFFFFF 


SAME AS ABOVE 


FFFFFFFF 
ESE209F1 
C20440C3 


FOO4IL87F 


04081830 


105245CO 


FFFFFFFF 
FICTFOFS 
0é090748 
18341244 
91803000 


7050C9D03 


47F04106 
CCCO40E0 
47FC41EC 
18090502 
41130064 
20580502 
41130074 
20614780 
4580426C 
52144115 
2CCC47EO 
E2E3E3FO 
07881813 
42A441C0 
COL4SO7FE 
occo0d00 
QCOOE2ZvIC 
cccoccco 
cood0ccdo 


FFFFFFEFF 


FFFFFFFF 
d0000c00c0 
4CFLFOF? 
41707T02€ 
4T10703€ 


C206C3C6 


ecicce 


CCCE= 


Ta CC2C3F 


ecccol2? 
COSCL2EE 
Se@rFc2cec 
42062050 
47F04170 
42062C51 
41F041B0 
422€£850 
5835C2D8 
C214CA14 
42AC45CC 
411CCCCC 
SQFOICL4 
EC1C4110 
404C0000 
5COC152E 
cocecoco 
ccccccoo 
cccccccc 


FFFFFFEF 


FFFFFFFF 
FSFTF4FO 
FSFSFTF4 
41CC7C16 
968C3C00 


C4FOCA09 


ASRA 


§8104102 
4714040FE 
L2FF478C 
47804186 
05C24206 
478041C6 
05024206 
2€604135 
12234780 
947F 2000 
4250C9D3 
CA0G18FO 
96011017 
FCCCCACA 
C00C 1578 
cccc 1é02 
COCC10A8B 
cccocao0o 
cccccccc 


FFFFFFFF 


FFFFFFFF 
60C3C2F1 
FO600304 
4TFOTOLE 
4140C001 


18445020 


LENGTH 


C 


TASK=CHC1 


0ACC9180 
58F0202C 
41601890 
4116205C 
20594780 
41102050 
20554780 
c0909110 
42264133 
9101420E 
C206€2E3 
CTFFS831 
1BEE43E0 
C7F848FO 
CCCC1B8A 
ccccoo20 
000C16D2 
coocooco 
FFFFFFFF 


FFFFFFFF 


FFFFFFFF 
40C3D6D7 
FI6BF2F4 
C9$03C2D6 
§0003C04 


JOAC1222 


DATE=76.191 


001038 


20024780 
12FF4780 
41D000A8 
18744580 
419A4110 
18774580 
41044110 
30304780 
05405110 
4780423 
E3FO0A09 
00609110 
FOO54CEO 
DO5C58C0 
QOOCIACA 
O00C12E4 
cececcce 
ooccacoo 
FFEFEFFF 


FFFFFFFF 


C903C 206 
E8D9CSC7 
FOFSFIFI 
C30604FO 
47FC7C54 


47707078 


TIME=C9.25.456 PAGE CC9 


Pee Pe er ere ee en) ee are eee ee ee ee ee ee 


Peccccccsccccce seccce eelesceee® 
PrcwcccccccceeD ee ceDveccecccccccce® 
PeReccccccceeeRNeeLacccccscssecec® 
PeeNeeDecvccccccceleeNe cDeeccceee® 
PrccccccePercccNecDes cecFecccccne® 
Pe eNe Dec cceFec ce cD eNe Decccreee® 
PrccccceeNese cLecccccsccccesnccsccve® 


Poovececnccccescvasehescscccsecees® 


Perec vsncessceseccceaseceseccesee® 
SP. oF eFeccccccescosscesILBOSTIO..# 


Ho cece Occ ILBCSTIOcccccccQecccccce® 


PrwcccccccsccccccceQNccccccccce Deen * 
PO cccee DecvecccccceeDe eee eDe eo e* 
Ponce ccccccnsecce secveccsesccsee® 
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